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KVIVEN... 



HISOFT, der især kendes for 
en række fremragende pro¬ 
grammer til de mindre 
Amstrads, har nu ’upgraded’ 
sig selv og har netop præ¬ 
senteret en af deres topsæl¬ 
gere 'The Knife' til Amstrad 
PC - og hermed kompatible 
(hm!). 

The Knife er - uanset navnet 
- et ganske fredeligt stykke 
værktøj, hvormed du kan 
lave alle mulige og umulige 
ting på dine disketter - og 
harddisk, for den sags skyld. 
Ud over muligheden for at 
rette i bytes på dine disketter 
og din harddisk, ligger der 
også nogle nyttige små Utili¬ 
ties på Hisoft-disketten, som 
du får 'forærende’. Det dre- 


del specielle versioner af 
programmerne ud i DOS 
Plus format - velegnede 
også til editering af CPM-86 
disketter. 

Selve Disk/Sektoreditoren 
kan alt det, du vil kunne 
ønske af et sådant program. 
Kommandoernes syntax er 
ikke den letteste i verden at 
huske - man bruger CTRL + 
kommandoer a la Wordstar, 
men man får egentlig hurtigt 
de mest anvendte til at 'sidde 
i fingrene’. Dine diskettedata 
kan gennemses i både Hex¬ 
adecimal og ASCII form, og 


alene den kan faktisk beret¬ 
tige anskaffelsen af The Kni¬ 
fe. Ligeledes vil de mange 
småprogrammer, der også 
ligger på disketten, være til 
stor nytte i det daglige. 

Hisoft har gjort en pæn entre 
på PC-markedet med The 
Knife - det skal blive spæn¬ 
dende at se, om firmaets 
andre succes-produkter 
(Devpac, Forth osv.) også 
dukker op i PC-versioner. 
Det ville sikkert glæde 
mange brugere, der har ’up- 
graded’ fra Joyce eller CPC- 
maskineme. 


at slette ved en fejltagelse, 
WDEL, der muliggør mas¬ 
sesletning af programmer - 
men du bliver spurgt først 
DUMP, der er en form for 
udvidelse af MS-DOS'TYPE 
kommando, COUNT og 
LCOUNT, der tæller, hvor 
mange ord der ligger i en fil 
(nyttig for skribenter, som 
undertegnede, der skal 
skrive fakturaer på dette 
grundlag), SHOWMAP, der 
grafisk viser, hvordan filerne 
ligger på din diskette eller 
harddisk, samt en hel del 
andre mindre brugte små 
snu rutiner. 

Som et af de eneste firmaer 
(endnu) har man taget DOS 
Plus alvorligt og har lagt en 



du kan rette i både Hex og 
ASCII også. Du behøver 
altså ikke at være nogen øm 
til at konvertere bogstaver til 
hexadecimale værdier - en 
feature, der uden tvivl vil til¬ 
tale mange. 

Ud over at programmet kan 
bruges til tvivlsomme formål 
(men moralen er jo høj i 
Danmark), er det et fortrin¬ 
ligt hjælpemiddel, hvis man 
vil lære lidt om, hvordan 
data egentlig organiseres på 
disketten. Den medfølgende 
manual er faktisk en lille 
lærebog desangående, og 
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ICÆMIPIE BUD£I I14HI 



ke tid, P/K er pris/kvalitetsforholdet, TYP er typen, 
A - ARCADE. E - EVENTYR. S - STRATEGI og 
sluttelig er PRO producenten, hvor TYN erTYNE- 
SOFT, ART er ARTIC, ATL er ATLANTIS og FIR er 
FIREBIRD (kan du se logikken?). 

Skal vi starte? 

Det første spil, WINTER OLYMPICS, er et af de 
sædvanlige sportsspil, blot i en lidt kedende og tri¬ 
viel form: du starter med første disciplin og slutter 
med den sidste. Ingen sidespring. 

Spillet består af 6 discipliner: hurtigløb på skøjter, 
skihop, slalom, bobslædekørsel, styrtløb og cur¬ 
ling. 

Hurtigløb på skøjter er en disciplin, der er ødelæg¬ 
gende for joystick'en og som samtidig gør det over 
3 heats. Du løber mod Arnold og skal nå i mål på 
kortest mulig tid. 

I næste disciplin, skihop, ødelægges joystick’en 
påny. Denne gang for at få størst mulig hastighed 
på, inden du slipper hopbakken. 3 heats og hæ¬ 
derlig grafik. 






Når man (som jeg) bliver sat til at skrive en hel mas¬ 
se sider om billige (og for det meste dårlige) spil, 
får man ondt af sig selv! Tænk at sidde på sin flade 
i flere timer i træk og bare spille spil, der ikke har 
det for godt med hensyn til fængslingsgrad, inter¬ 
esse, grafik osv., men som jo trods alt er billige, og 
derfor kræver hensyntagen dertil. Derfor har jeg 
denne indledende bemærkning: når et spil har 
fået topkarakter i denne test, så se det i forhold til 
hvad det er for spil. I sammenligning med de dyre¬ 
re, og som regel bedre, spil, er disse det rene vand. 
Nå, skidt, lad os komme videre til pointsgivningen. 
Jeg har valgt en skala fra 1-10, som jeg finder dej¬ 
lig overskuelig, og som giver mulighed for at pla¬ 
cere et spil nogenlunde præcist (i stedet for 1-5 jo- 
ysticks for nu at tage et eksempel). 


EVIEW 


Til skemaet til sidst har jeg følgende forklaring: 
GRA er grafikkarakteren, UND er karakter for un¬ 
derholdning, BET er betjeningskarakteren, INT er 
for, hvilken interesse det har efter et styk¬ 
























Slalom, som er tredje disciplin, går ud på at styre 
løberen stille og roligt gennem portene, der er stil¬ 
let op på banen til formålet, og derefter nå mål. 
Igen 3 heats. Hvis man for øvrigt bommer 3 porte, 
bliver man diskvalificeret. 

Bobsdlædekørsel som denne gang består af 3 
RUNS (nej, ikke heats), går ud på at styre slæden 
støt og roligt gennem de, nogle gange, brutale. 
Og så ikke mere! 

Styrtløb er faktisk det samme som slalom, bortset 
fra at det her ikke gælder om at styre igennem por¬ 
te, men derimod om at styre uden om sten og 
træer. GAB!!! 

Sidste disciplin: curling. Her gælder det om at hol¬ 
de tungen lige i munden (ironi!), og placere sig rig¬ 
tigt inden man skyder sine 4 sten afsted, du skal 
samtidig afpasse skuddet, så stenen havner inde i 
den skydeskive, der er tegnet øverst på skærmen 
(kaldet huset). Jo længere du holder knappen, jo 
længere ryger stenen, når du slipper knappen 
igen. Tæl til fem (5), og den ligger der! Du skiftes 
med Arnold, 4 sten til hver over 3 omgange. OG 
GUD BEDRE DET: NÅR DU ER FÆRDIG MED 
SPILLET, BLIVER DU BEDT OM AT VENDE 
BÅNDET OG STARTE FORFRA!!! Nå, skidt, gra¬ 
fikken er faktisk nydelig! 


Kender du de gode gamle Jupier Lander til Com- 
modore og da også Amstrad, så kender du også 
STAR RANGER. Det her er blot en ny version. Det 
vil sige: grafikken er faktisk flot, og der er kommet 
et asteroidebælte, de skal forbi, før du kan nå ned 
til de platforme, du skal lande på. Der er kun en 
skærm, men det går hurtigt, og det er fængslende. 
WORLD CUP er et fodboldspil, og sådan nogle 
har ry for at være kedelige, og det vist kun mere 
end passer i dette tilfælde!!! 6 spillere flintrer rundt 
på banen i 2 x 45... nej, heldigvis sekunder. Du sty¬ 
rer med joystick’en den spiller, der har lyse shorts 
på, og spiller mod Arnold eller en ven (lad ikke 
sidstnævnte se, at du har spildt penge på sådan no¬ 
get bras). Hvis du spiller mod en ven (du kan fak¬ 
tisk spille mod 8, bare ikke på en gang!), styrer I 
hver især de spillere, der har lyse shorts på. Nå, ja. 
Du får da også lov til at drysse lidt rundt med 
målmanden en gang imellem (ved scoringsfor- 
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I Byen er blevet evakueret, så du kan frit bevæge 
dig omkring med tidsfristen i baghovedet. 

Rundt omkring ligger der diverse ting og sager, 
hvoraf nogle bruges til at uskadeliggøre bomben. 
Det var forklaringen. Kom i gang! Der er masser af 
skærme og god grafik. 


søg). 

Så er bedstemor kommet på arbejde. Hun lyder 
navnet SUPER GRAN og fiser rundt på en mel¬ 
lemting mellem Ellehammers første flyver, Leonar- 
do da Vincis første helikopter og så en cykel. Kort 
sagt en oldsag sidder på en oldsag. Den sids¬ 
tnævnte oldsag skal Super Gran sørge for at få 
bragt til en videnskabelig udstilling, men det er 
ikke nemt, når en slemmer fyr prøver på at stoppe 
hende. 

Der bliver både nævnt 6 og 8 skærme i instruktio¬ 
nen. Jeg har ikke checket efter, hvilket tal der pas¬ 
ser, da det kunne være lige meget, når grafikken 
og interessen ikke tillod mig at være med længere. 

1 RIG ATTACK flyver du stille og roligt rundt i din 
overvågningshelikopter, overvågende diverse ski¬ 
be og olieboreplatforme, da en fjendtlig ubåd 
pludselig dukker op. Denne skal bombes, mens 
du samtidig prøver på at undvige dens missiler. 
Det er svært og så skal du huske at tanke, op en 
gang imellem. Udmærket spil, men taber dog for¬ 
holdsvis hurtigt interessen. 


GROUND ZERO er et underligt navn på et 
udmærket spil. I et forsøg på at vise en atomkrigs 
rædsler over for verden har en gruppe amerikan¬ 
ske videnskabsmænd konstrueret en atombombe, 
som er blevet forsynet med en tidsindstilling på 30 
minutter. Derefter er den blevet placeret på et til¬ 
fældigt sted i byen Foggly, godt gemt af vejen. Du 
er nu blevet udset til at finde frem til bomben og 
deaktivere den. 
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CLIMB IT er endnu en billig efterligning af Donkey 
Kong, blot med dårligere grafik og betjening, men 
historie og handling har ikke ændret sig. 

Din udkårne er blevet snuppet af en rival, som har 
en uhyggelig lighed med en gorilla, og som samti¬ 
dig forsøger at fjerne dit legeme fra jordens over¬ 
flade ved hjælp af alle mulige beskidte tricks 
såsom tønder, levende ildkugler (hvaba), spinatfa¬ 
de, der flyder hen mod (og over) dig. Og så videre. 
Tapper som du er, kæmper du dig bravt fremad 
gennem 4 skærme, indtil du til sidst besejrer ærke¬ 
rivalen (det store grødhovede) og får kæresten 
med hjem. Hvad kan man ellers sige? Nå, jo: har 



du set en, har du set dem alle. 


SAS ASSAULT COURSE indeholder en helt ny 
idé. iscenesat med 22 skærme, ikke ligefrem ac¬ 
tionfyldte, men med en nydelig grafik. Din opgave 
er nu bare at klare dig igennem alle prøvelserne, 
som hver især er led i et optræningsprogram for 
SAS-agenter (nej, det betyder IKKE at du kommer 
flyvende fra start). Det er som taget fra virkelighe¬ 
dens SAS (Special Antiterror Service, og hvad ved 
jeg...), blot er det lidt kedeligt og uden de helt store 
udfordringer. Hele herligheden er ikonstyret med 
indbyggede instruktioner og 3 forskellige »svær¬ 
hedsgrader«. 

Konklusion: det er da billigt... 


Testens eneste ægte adventure, er ESCAPE 
FROM KHOSHIMA fra ATLANTIS. Historien er, at 
du har været fanget i en japansk POW-lejr (Priso- 
ner Of War, krigsfanger) i fjorten måneder. Denne 
lejr ligger dybt inde i junglen i Burma (hvad laver 
japanerne dog der?). Nu har du pludselig en 
chance for at undslippe. Brug den! Kun en engelsk 
doktor og et par japanske vagter, der er døset hen 
i middagssolen, er til stede. Vejen gennem junglen 
er lang og sej. men bare kom i gang. da det er frihe 
den det gælder. 
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Sødt lille adventure, med en ny idé, og til en billig 
penge. Nydelig grafik og en rimelig kommando¬ 
fortolker. Jo, det er skam et udmærket spil. 

Næh, hvor sødt. I PAWS er dine 10 katter smuttet 
væk hjemefra (du er moderen) og ud i den store 
stygge verden. Og nu må du ud for at bringe dem 
hjem i sikkerhed. Men pas på! Et stort og stygt kob¬ 
bel hunde er efter både dig og killingerne. Sød 
historie? Næh, egentlig ikke. Bare vammel, men 
med en ny idé. Nå. skidt. By the way: dit navn er 
Selwyn og så skal du forhindre hundene i at samle 
sig i deres slæng. Dette kan du gøre ved at dræbe 
dem med »fluff balls« eller ved et katte/hunde¬ 
slagsmål. Det sidste koster energi (stamina), hvor¬ 
imod »fluff balls« har det med kun at findes i et vist 
omfang. Du kan dog også bruge en mere fredelig 
udvej: paralysere hundene med din »catoplexic 
energy« (5-10 sekunder ad gangen) og så ellers 
samle killingerne sammen og få dem hjem. For 
øvrigt kan du kun have en enkelt killing med ad 
gangen. Det er også med til at gøre det sværere. 
Faktisk et meget sjovt spil med utallige skærme og 
masseraf udmærket grafik. Nå, ja, og så en ny idé! 


Derimod kan min interesse for VOODOO RAGE 
stå mellem linie 16 og linie 17 i telefonbogen!!! Det 
er en AFSKYELIG DYR MÅDE AT KØBE DATA¬ 
BÅND PÅ!!! Som en engelsk anmelder skrev: 
skærm nummer 2 er svær at se på en grønmonitor 
- men det kan da kun være en fordel!!! Du har 
muligvis gættet, at jeg ikke er vild med dette 
»spil«... Selv ideen hører fordums tider til: platform 
spil! 

Du er en sød. ung dame, som har fået til opgave at 
samle alt op. der ligger stille, og undgå alt, der 


bevæger sig. Hovedsageligt gælder det dog om at 
samle en kagerulle op og så smutte op og daske 
lidt til husbonden, når han sætter sig hen til sin 
computer for at spille. Det er nemlig det. det går 
ud på: at vænne manden af med sin uvane. Han 
befinder sig for øvrigt med sin terminal på øverste 
platform. Jeg kan nu bare ikke glemme ham den 
engelske anmelder og hans humor: Han skrev: 
manden sætter sig ikke ved computeren særlig 
ofte - gad vide, hvilket spil han spiller? 

For at hjælpe dig i din færd er du blevet forsynet 
med 10 »rages«, som kan fryse alt. der bevæger sig 
i ca. 10 sekunder ad gangen. Og så er det bare om 
at samle ting op. 

Det bedste ved spillet er, at der er 20 skærme (eller 
er det mon det dårligste ved det?). 


Efter en lang ferie er du nu vendt tilbage til din 
arbejdsplads, en kagefabrik - CUSTARD PIE FAC- 
TORY. og ser til din rædsel, at alt er absolut kaos. 
Som virksomhedens altmuligmand skal du sørge 
for, at alt kommer i orden igen. Maskiner skal have 
råstoffer (suker, mel osv.), generatorerne skal have 
brændsel osv. Du kan bære rundt på 3 ting ad gan¬ 
gen og skal så bare have fyldt maskinerne op og 
ordnet diverse andre ting. Når du er færdig, skal du 
bringe de færdige kager ud. Spillet er et typisk plat¬ 
form spil og har efterhånden ingen interesse mere. 
Jeg orker bare ikke at brokke mig .mere. .. 
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Nu daTYNESOFT og ARTIC efterhånden hænger 
mig langt ud af halsen, er jeg glad for at være kom¬ 
met til FIREBIRD's BOOTY. Øhm. FIREBIRD, var 
det ikke dem, der nedkom med HARVEY HEAD- 
BANGER og ELITE? Jo, da. Og nu er de så ude 
med førnævnte, et piratspil, hvor det sandelig ikke 
skorter på kvaliteten i forhold til prisen. 

Ideen er, at du er kahytsdrengen Jim, som skal ud 
for at samle nøgler og skatte (»BOOTY«) op. Så 
mange som muligt. Først har du sat dine ben på 
den sorte galease, og når du har været alle dens 20 
rum igennem, har du 45 sekunder til at få fat i 
bronzenøglen, og så ellers komme videre. Så 
fremdeles indtil du har klaret galeasen med guld¬ 
nøglerne, og det er ikke let, da sværhedsgraden 
stiger væsentligt for hver galease du klarer. Du har 
rigelig med chancer for at bomme, deriblandt 
drukne, blive stukket ned, springe i luften (sam¬ 
men med en bombe, selvfølgelig) osv. Jo, sandelig 
et sjovt spil, der samtidig haren overordentlig pæn 
og klar grafik. 


Derimod har FIREBIRD lavet deres hundredeårs¬ 
brøler med NINJA MASTER. Lad os håbe, det er 
et engangstilfælde. Kort sagt drejer det sig om at 
klare nogle manddomsprøver, mens de gamle nin- 
jamestre ser på dig (og bedømmer dig). Når vi, for 
det første, har set MASSER af den slags spil før. og 
når vi, for det andet, kun skal bekymre os om fire 
taster for at slå diverse flyvende genstande og 
andet væk, ja. så er det man taber lidt af tilliden til 
FIREBIRD. 
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FIREBIRD har imidlertid just genvundet tilliden 
med REBEL STAR. Til dem der kan lide 
ARCADE/STRATEGI, kan jeg fortælle, at FIRE¬ 
BIRD her har produceret det absolut fedeste af 
slagsen (til prisen). Når det så samtidig er af typen, 
man ikke gør færdig på en halv time, ja, så er det 
bare om at få fingre i det. Du kan enten spille mod 
Arnold eller en ven (sig mig lige engang: er Arnold 
ikke en ven?). Elvis du spiller mod førstnævnte, er 
du udset til at angribe, men hvis du derimod spiller 
mod sidstnævnte, sker det på den måde, at I væl¬ 
ger side, før I starter. Men hvad er det nu for noget 
dette her med angreb og forsvar. Jo, ser du, angri¬ 
berne er en flok mennesker/droider/robotter. der 
har til hensigt at ødelægge Månebase Delta. For at 
føre dette skal de ind og destruere 1SAAC, en com¬ 
puter, der styrer det hele. Forsvarerne er derimod 
hovedsageligt robotter/droider, men fungerer på 
nogenlunde samme måde som angriberne. Hver 
af disse figurer har en begrænset mængde energi 
(kaldet »action points«), som falder for hver gang 
de yder en indsats (skyder og lignende). Desuden 
har de hver en status blok, som det er muligt at 
kaste et blik på, om man vil. Detaljerne er utallige, 
grafikken, som er MODE 1, er absolut fed. Det spil 
skal spilles, ikke beskrives, så lok 39.85 ud af din 
mor og smut hen til din nærmeste FIREBIRD for¬ 
handler. NU!!! 


Du er Sam. en lille bombefjernemand, som i 
SHORT’S FUSE er kommet i alvorlige problemer. 
Boris (som er en grimmer bombemand) har place¬ 
ret et antal bomber i forskellige byer på kloden, 
hver med en lunte, der er 9 sekunder om at 
brænde ned. Du skal så rundt og slukke dem (ly¬ 
seslukker), men hver gang du har slukket en, 
begynder den næste, så det ikke bliver for let. Når 
du har klaret alle bomberne på en skærm (i en by), 
er det videre til næste. 
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Sødt spil af platformtypen, der fængsler til prisen 
og som har køn og klar grafik. 

Det var så alt for denne gang folkens. Kan I nu 
hygge jer med det nydelige skema, jeg har lavet til 
jer, og se så, om I kan få noget ud af det, men husk: 
jeg er ikke ensbetydende med god smag, så prøv 
spillene selv inden I beslutter jer, da det jo trods alt 
er jer, der skal trækkes med dem efter de er købt. 
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I denne artikel vil jeg fort- Denne plasticskive er deref- nende (dette er for øvrigt Når vi nu skal have ad¬ 
sætte den linie, jeg lagde ter blevet coated, hvilket er også det beløb. COMAL gang til disse spor og sekto- 
vedrørende artiklen om årsagen til at magnetbelæg- melder indestående på kon- rer, sker det gennem nogle 
lydprocessoren i nummer 1/ ningen ikke ryger af (hvor toen, når vi tager en CAT på rutiner i ROM, som er lavet 
87. Godt nok er denne om utroligt det end lyder, er det en tom disc). Alt dette gæl- netop for at gøre livet lettere 
diskettestationen, men det alligevel sandt). Plasticski- der imidlertid kun for DATA- for os. Disse rutiner kan for 

PÅ Sporet A f \ 
Diskettestationen 



hører jo alt sammen ind un¬ 
der overskriften periferiud¬ 
styr/hardware. 

Amolds lille 3" diskette¬ 
station (som man kan fristes 
til at kalde CD - Compact 
Disc på grund af størrelsen) 
har større muligheder end 
man aner, hvilket jeg håber 
vil komme til udtryk i denne 
artikel. For eksempel går de 
fleste rundt med troen på at 
3-tommeren kun har 40 
spor, hvilket jeg hurtigt skal 
få undermineret (hæ-hæ!). 
De fleste vil også gerne 
kunne formattere deres di¬ 
sketter fra BASIC, hvilket jeg 
også har en brugbar løsning 
på (som tilmed er mere ef¬ 
fektiv end CP/M-løsningen), 
men lad os nu starte fra en 
ende af med en hurtig over¬ 
sigt over disketten. 



Inde i de vederstyggeligt 
grimme rektangulære kas¬ 
ser, du med møje og besvær 
forsøger at fodre din disket¬ 
testation med (og som du 
med ligeså stort møje og be¬ 
svær forsøger at forklare 
hunden og ungerne, at de 
absolut IKKE skal bide i), 
gemmer der sig en cirkel¬ 
rund skive af plastic, hvorpå 
der er blevet påsprøjtet et 
magnetiserbart materiale. 


ven er sluttelig blevet forsy¬ 
net med et hylster, hvori der 
samtidig befinder sig en be¬ 
skyttelseskappe af alumini¬ 
um, der skal beskytte skiven 
mod unødig indblanden fra 
små pilfingre (af den type jeg 
nævnte før, med de UHYG¬ 
GELIGT SKARPE TÆN¬ 
DER, nu er de imidlertid 
også blevet forsynet med 
FINGRE). 

Disketten (som disse rek¬ 
tangulære kasser med ind¬ 
hold kaldes) er normalt op¬ 
delt i 40 spor, nummereret 
fra 0 til 39. Disse 40 spor 
dækker hver over 9 sektorer, 
nummereret fra 0 til 8. Sek¬ 
torerne er dog ikke helt nor¬ 
malt placeret, hvilket frem¬ 
går af fig. 1. Da hvert sektor 


discs. Tager vi derimod en 
SYSTEM-disc (CP/M-disc), 
finder vi, at vi nu har 9.216 
bytes færre, dvs. i alt 
173.056 bytes til rådighed, 
hvilket skyldes at CP/M’en 
grådigt og uden nogen form 
for hæmninger snupper 2 
spor (spor 0 og spor 1) til sit 
styresystem. Da det af flere 
grunde er uhensigtsmæssigt 
at bruge SYSTEM-format 
under arbejde med BASIC 
eller COMAL, vil vi derfor 
kun beskæftige os med 
DATA-formatet. 

For at skelne mellem de 
forskellige formater (IBM. 
SYSTEM (VENDOR) og 
DATA) har man valgt fra Am- 


nogles vedkommende kal¬ 
des via Jump Blokken, men 
da dette kun er afgrænset til 
de grundlæggende rutiner 
såsom SAVE og LOAD, vil vi 
derfor i første omgang ikke 
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beskæftige os med disse, 
men derimod med den 
"Jump Blok”, der forefindes i 



kan indeholde 512 bytes 
(standard CP/M-format) har 
vi i alt 512x9x40 bytes til rå¬ 
dighed (efter lidt hovedreg¬ 
ning fås dette lille regne¬ 
stykke til 184.320 bytes), 
hvoraf 4 sektorer (2.048 by¬ 
tes) forsvinder til directory, 
så vi i alt står med 182.272 
bytes til rådighed til diverse 
geniale programmer og lig¬ 


strads side at nummerere 
hver sektor på en lidt speciel 
måde: DATA-formatet har 
fået numrene &C1 til &C9, 
SYSTEM &41 til &49 og 
IBM har sluttelig fået num¬ 
rene &01 til &09. Som den 
opmærksomme læser nu 
har gættet, har hver sektor 
sit normale nummer fra 0-8, 
men med et tillæg, der afgør 
hvilket format, der er det 
gældende (&C1. &41 eller 
& 01 ). 


DISC ROM'en. Heraf vil vi 
endda kun bruge tre rutiner, 
som henholdsvis læser, skri¬ 
ver og formatterer en sektor. 

For at lette arbejdsgangen 
til disse rutiner, har jeg lavet 
en lille rutine, som kaldes fra 
BASIC med CALL &A000, 
adresse,drive,spor,sektor, 
buffer, hvor adresse er ad¬ 
ressen på rutinen i DISC 
ROM'en, drive er drevnum¬ 
meret. 0 for A: og 1 for B:, 
spor er spomummeret, sek¬ 
tor er sektomummeret og 
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buffer er adressen på et 512 
bytes område i Amolds 
RAM, hvilket lige netop sva¬ 
rer til størrelsen på den sek¬ 
tor, man vil læse eller skrive. 
Læsningen foregår ved at 
kalde læserutinen på ad¬ 
resse &C03C, og kort tid ef¬ 
ter ligger den valgte sektors 
indhold fra adressen buffer 
og 511 bytes fremefter. 
Skrivning foregår omvendt 
ved at man har en sektors 
indhold liggende fra adres¬ 
sen buffer og 511 bytes 
fremefter, derefter kaldes 
skriverutinen på adresse 
&C03F. Som det ses er 
skrivning og læsning for¬ 
holdsvis simpelt, men når vi 
skal formattere, er det straks 
mere kompliceret. Først skal 
vi have opstillet en formatte¬ 
ringstabel. Denne formatte¬ 
ringstabel består af i alt 36 
bytes, 4 for hver sektor. 
Disse 4 bytes er i den 
nævnte rækkefølge spor¬ 
nummeret (det spor, der skal 
formatteres), et nul (0), sek- 
tomummeret (&00-&08 
plus formatangivelsen), som 
sektorerne skal forsynes 
med, og sluttelig et total (2). 

Fig. 2 viser hvorledes ta¬ 


bel op, er der kun tilbage at 
kalde format-rutinen på 
adresse &C042, med sektor 
sat til formatbyten (&01, 
&41, &C1), spor sat til det 

»# 

««*# 

spor, der skal formatteres, 
drive til drevnummeret og 
buffer til adressen på format¬ 
tabellen. En uendelig lille 
brøkdel af et sekund senere 
har vi så fået formatteret det 
valgte spor. Totallet og nullet 
har jeg ingen egentlig forkla¬ 
ring på, men et, efter min 
mening, kvalificeret gæt, 
ville være at det var sektor¬ 
størrelsen, da 2 så skulle 
være high-byte og 0 skulle 
være low-byte. 2x256+0 gi¬ 
ver da' lige netop 512, som 
jo er størrelsen på en sektor 
(i bytes). Ved for eksempel at 
udskifte 2 med 4 fås en sek¬ 
torstørrelse på 4x256+0, 
hvilket giver 1024 bytes. 
Blot er der den fejl, at AMS- 
DOS ikke uden videre kan 


vet), med mindre man kan 
ændre magnethovedets 
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bellen er sat op. og som man 
kan se, er sektomumrene 
ordnet efter samme komplet 
latterlige system som på di¬ 
sken (fig. 1). Når vi langt om 
længe har fået sat denne ta- 


læse en sektor med den stør¬ 
relse (det hele ER efterprø- 
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steplængde til det halve, og 
jeg må tilstå, at jeg ingen an¬ 
else har om, hvordan DET 
skal gøres. Men hvis nogen 
har et bud, SÅ SKRIV FOR 
GUDS SKYLD IND (så vil 
jeg sende et billede af mine 
glædestårer)!!! 

Så opmærksom, som den 
førhen opmærksomme læ¬ 
ser var, må han/hun nu have 
opdaget, at vi kan give sek¬ 
torerne vores helt private 
numre. For eksempel kan vi 
sætte dem i system på spo¬ 
rene, så de går fra foreksem¬ 
pel &F0 til &F8 i den 
nævnte rækkefølge, i stedet 
for det system, der er vist på 
fig. 1. Men vi kan også for¬ 
mattere et spor med sektor¬ 
numre, der er helt forskellige 
fra diskens ellers nydelige 
standard; når vi så senere 
læser vores program ind, 
kan programmet undersøge 
om de pågældende spor er 
formatteret som vi formatte¬ 
rede dem (og eventuelt 
hente data ind fra dem), hvis 
de ikke er det, er det en 
(ulovlig) kopi, man sidder 
med og programmet format¬ 
tere så (for eksempel) di¬ 
sken. Resultatet heraf er 
selvfølgelig en ren og ny disk 
uden programmer eller 
data, og vigtigst af alt: PIRA- 
TERIET ER BLEVET EF¬ 
FEKTIVT STOPPET. Alle 
disse ord kan samles under 
overskriften KOPISIK¬ 
RING!!! Blot er der en 
ulempe ved det hele. for sel¬ 
vom et normalt backuppro- 
gram ikke kan læse sektorer 
med ulovlige numre, er der 
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dog nogle yderst kvikke ho¬ 
veder, som har fundet ud af 
at lave små rutiner, der klarer 
den lille sag, hvilket betyder 
at vi må ty til andre midler. Et 
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af de andre midler kunne for 
eksempel være at skrive 
data i specialformatterede 
spor, uden for sporene 0 ti! 
39. Her må de fleste af disse 
smarte backupprogrammer 
nemlig give op, da de som 
regel ikke er forberedt til at 
læse (endsige skrive) herude 
(selvom de selvfølgelig let 
kan modificeres). Resultat: 
EKSTRA KOPISIKRING!!! 

Jeg har dog en lille advar¬ 
sel: FORMATTER ALDRIG 
SPOR, HVORPÅ DE PRO¬ 
GRAMMER AMSDOS 
SELV SKAL LÆSE IND 
LIGGER, MED SEKTOR¬ 
NUMRE, DER ER ILLEGA¬ 
LE. DA AMSDOS KUN 
KAN LÆSE &01, &41 OG 
&C1 DIREKTE!!! YDER¬ 
MERE KAN AMSDOS KUN 
SKRIVE &41 OG &C1 DI¬ 
REKTE!!! 

Nu har jeg sikkert vakt 
undren hos den ellers så op¬ 
mærksomme læser ved at 
optale spor uden for spor 0 
til 39, hvilket da er forstå¬ 
eligt, da der intet står om 
dette i instruktionsbogen, 
men sandheden er, at 3- 
tommeren i virkeligheden 
har 43 spor, nummereret fra 
0 til 42. Grundene til ikke at 
medtage de tre sidste er dog 
stadig uklare selv for mig 
(det kan da ikke være be¬ 
lægningstykkelsen, da den 
normalt er størst ved cen¬ 
trum af disken), men da de 
åbner mulighed for kopisik¬ 
ring, eller bare en regulær 
udvidelse af diskkapacite¬ 
ten, finder jeg ikke proble¬ 
merne så store endda. 

Hvis man brugte de tre 
sidste spor som en kapaci- 
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tetsudvidelse, får man, ved 
at formattere dem på normal 
vis, lige pludselig 512x9x3 
bytes ekstra (nu hiver du så 
straks lommeregneren frem 
og tæsker løs på det stakkels 


dyr. selvom jeg fortæller dig 
at svaret er 13.824 bytes). 
Nu er AMSDOS desværre 
ikke indrettet saledes at den 
automatisk lægger et pro¬ 
gram eller lignende ud i de 
tre spor når man SAVE'r det. 
men den kan derimod uden 
problemer finde derud og 
læse det. nar det en gang ER 
lagt derud. Ergo: hvis man 
selv sørger for at smide filen 
derud, sørger AMSDOS for 
resten. For nu at kunne 
lægge programmer ud i de 
"skjulte" spor. ma man have 
en forståelse af hvordan di¬ 
rectory er bygget op. 

Er optegnelse i directory 
fylder 32 bytes. 16 bytes for 
info om filen og 16 bytes, 
der fortæller i hvilke sektorer 
filen ligger. Hver af de sidste 
16 bytes tegner sig for 2 sek¬ 
torer af filen. dvs. i alt 1.024 
bytes Da en optegnelse så¬ 
ledes kun indeholder 16K af 
filen, må man bruge en op¬ 
tegnelse for hver 16K filen 
fylder: den første plus et an¬ 
tal EXTENDS. Inden vi kom¬ 
mer til disse extends. vil jeg 



først give en forklaring af in- 
fodelen. Denne del tegner 
sig som førnævnt for 16 by¬ 
tes. hvor byte 0 er den. der 
fortæller hvilket USER-om- 
rade filen ligger i (eller &E5. 
hvis filen er blevet slettet). 
De næste 8 bytes er filens 
navn og de næste 3 er dens 
type. Det er i filtypen, at info 
om SYS/DIR og Read Only 
ligger. Hvis bit 7 (128) i byte 
9 (første byte af type) er sat. 
er filen Read Only (skrivebe¬ 
skyttet). og ligeledes har fi¬ 
len SYS-status. hvis bit 7 i 
byte 10 er sat. ellers selvføl¬ 
gelig DIR-status. I byte 12 
har vi sa extendnummeret 
(hvilken 16K blok. vi har 
med at gøre), men den ma 
du vente med at høre om 
(ha-ha) Byte 13 og 14 er to 
nuller (0). og i byte 15 har vi 


extend-længden. 

Extend-længden males i 
antal 128 bytes (1/8 K). hvil¬ 
ket vil sige. at denne byte 
maximalt kan have værdien 
&80 (&80xl28 giver 

16.384 bytes hvilket er ex- 
tend-maximum. og hvis den 
er højere, kan du bide spids 
pa. at der er noget galt). Hvis 
denne byte skulle være 
&80. findes der en extend 
mere. hvilket bringer os vi¬ 
dere til førnævnte extend- 
nummer. Hvis dette num¬ 
mer er nul. har vi med ho¬ 
vedblokken at gøre. derefter 
nummereres fra 1-??. alt ef¬ 
ter hvor mange K filen fylder. 
Så simpelt er det! Men selv 
med alle disse oplysninger, 
star vi stadig spørgende over 
for de sidste 16 bytes af op¬ 
tegnelsen: de bytes der for¬ 
tæller. hvor filen ligger Som 
førnævnt star en byte inde 
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for 1K af filen, men da en 
blok kun indeholder 512 by¬ 
tes. må byten jo stå inde for 
to sektorer. Disse to sektorer 
er to fortløbende sektorer, 
og da der er ni sektorer pr 
spor. ma det første sektor¬ 
nummer være lig (BVx2) 
MOD 9. hvor BV er byte- 
værdien fra sektortabellen i 
directory Da de to sektorer 
følger hinanden, har den an¬ 
den sektor formlen 
(BVx2+1) MOD 9. Omvendt 


har sporet formlen (BVx2) 
DIV 9 og sporet for sektor 
nummer to har (BVx2+l) 
DIV 9 (da sektor nummer 1 
kan blive 8. ma vi ind pa et 
nyt spor. da et sektornum- 



efter array'et. og overflytter 
filen til spor 40 til 42 sektor 
for sektor, samtidig med at vi 
noterer de sektorer ned. 
hvor filen er blevet lagt (selv¬ 
sagt i et andet array). Til sidst 
checker vi for fejl. og opda¬ 
terer sa directory med sek¬ 
tortabellen i det sidste array. 

Det var sa slutningen på 
denne artikel, som jeg håber 
kunne bruges. Jeg vil dog 
lige her til sidst bemærke, at 



mer ikke kan blive 8+1 lig 9). 

Lad os nu vende tilbage til 
at overføre filer til de 3 sidste 
spor. Hvis filen max. ma 
være 13.5K lang. må byte 
15 i optegnelsen (extend- 
længden) max. have vær¬ 
dien &9C (hvilket er 108 i 
decimaltal). For at overføre 
filen, ma vi først have læst 
dens sektortabel ind i et ar¬ 
ray. derefter gar vi sa frem 




i 




% 
% 


* 


& 


to 


% 


% 





i 




SKETES 

Skt‘ vebcsU N»* h“" et 

«“» kette a«kUet»“‘ en , 

Ikke e* d . kan de’ 
hvide tap * 8 el „Un¬ 
it*« ! dleUe««" D **' 
ve* P» d,sk , en ev« n : 

te «otebV99 in9 at 

tu«t ■*•"££* dl*** 
w iglt9 c d* tB * 


„ be»W««\‘f e 
Den " e skyde* «» •’“* 

» kapP fiedetbet«*« 

al de" ««“ side 
de taP 1 h0,, n a, den 
disketten- n vet K ,p- 

-S£r=s£ 

u 

O 


S« U 




„ovetfla- 

\e sekto’«'..et, „al 

bUV u e, t»en b “ veI ' 0, ‘ 
disketten 

matetet. 


am 

% 


s« 

fif 







der herefter følger et pro¬ 
gram i BASIC, der udfører 
de ovennævnte ting (format¬ 
tering og flytning af fil). Pro¬ 
grammet er dog lavet i hast 
og huj og hej. så prøv at se 
om I ikke kan nedkomme 
med noget creme extreme, 
eventuelt med en disc-doc- 
tor indbygget, og SEND 
DET SÅ FOR GUDS 
SKYLD IND TIL OS (så kan 
det være at jeg fælder endnu 
en glædeståre). 

P.S. Hvis du er den lykke¬ 
lige ejer af et COMAL-mo- 
dul, så prøv at lege med 
kommandoen COPY (den 
stod i hvert tilfælde ikke i 
MIN instruktionsbog). Den 
har syntaks som for LOAD 
og SAVE: COPY "d:file- 
name.typ","d:filename.typ”, 
hvor første parameter er det, 
der angiver hvorfra, der skal 
hentes og hvilken fil, der skal 
hentes. Sidste parameter er 
så selvfølgelig hvorhen, der 
skal anbringes, og under 
hvilket navn. Hvis du tilmed 
har en 6128 eller en anden 
form for ramudvidelse til din 
Arnold, så prøv at bruge den 
med COPY "Aifilename. 
typ”,"M:filename.typ” og 
derefter skifte disk og så 
bruge COPY "M:filena- 
me.typ”,"A:filename.typ". 

Kommandoen kan også 
baiges i programmer, hvil¬ 
ket betyder, at du kan hente 
eksterne procedurer og 
funktioner ned på RAM-di- 
sken (M:) en gang for'alle i 
starten af programmerne, og 
derefter kalde dem fra RAM- 
disken, hvilket betyder en al¬ 
vorlig hastighedsforøgelse, 
når programmet bruger ek¬ 
sterne procedurer. Hvis du 
for øvrigt ønsker at skifte 
USER-område under CO- 
MAL har du måske fundet 
ud af, at USER(n) ikke virker 
(RSX-kommandoen), da en 
indbygget systemvariabel 
ligger der under samme 
navn!!! I adresse 42.753 lig¬ 
ger der en byte, der angiver 
hvilket USER-område, der 
arbejdes i, og som kan ænd¬ 
res med POKE 42.753, user- 
nummer. I adresse 42.752 
ligger desuden en byte, der 
angiver drevnummeret (0 
forA:. 1 for B:). GOD FOR¬ 
NØJELSE!!! 
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10 * 

20 'Program til formattering af disks og overførsel af progr 
ammer til ydre spor 
30 * 

4 0 SYMBOL AFTER 256 ‘.MEMORY 2 6999:FOR i=&A000 TO &A01E : READ j 
:POKE i.j:NEXT 

50 DATA 221,102,9.221,110,8,34,28,160,221,94,6,221,86,4,221, 
78,2,221,102.1.221,110,0.223,28,160,201,0,0,7 
60 buffer=&Al00:format=&C042:wrt=&C03F:rd=&C03C 
70 DIM b1ok(16) 

80 MODE 2 '■ PRINT" 1 .. Overførsel af fil" 

90 PRINT:PRINT"2 .. Formattering af diskette" 

100 PRINT:INPUT'Indtast valg >",m:ON m GOSUB 180,110:GOTO 80 
110 * 

120 'Formattering af disketter 
130 ’ 

140 CLS:INPUT"Indtast spor, der skal formatteres & sektorfor 
mat (fra,ti 1,sektor): ",fra,ti 1,sektor 

150 PRINT"Bekræft formattering af spor"fra"ti 1"ti 1"(J/N): 

:INPUT"",a$:IF LOWER$(CHR$(ASC(a$+" ")))<>"j" THEN RETURN 
160 FOR j =0 TO 8:POKE buffer +1 + j*4,0:POKE buffer + 3 + j*4.2:POK 
E buffer+2+j*8,sektor+j:IF j>4 THEN POKE buffer+6+(j-5)*8,se 
ktor+j 

170 NEXT:FOR i = fra TO ti 1:PRINT"Spor"i:FOR j=0 TO 8:POKE buf 
fer + j*4, i:NEXT:CALL &A000,format,0, i,sektor.buffer:NEXT:RETU 
RN 

180 ’ 

190 'Overførsel af fil til ydre spor - uden check!!! Hav alt 
id kop i!!! 

200 ' 

210 CLS 

220 INPUT"Indtast filnavn (med .typ): "-n$:n$=UPPER$(n$):1=L 
EN(n$):i=INSTR(n$IF i=0 THEN 220 

230 IF 1 - i < > 3 THEN PRINT Fej1 i type":GOTO 220 

231 IF i = 1 OR i >9 THEN PRINT 'Fej 1 i navn"'.GOTO 220 

2 40 n$=LEFT$(LEFT$(n$, i -1) + SPACE$(8),8)+RIGHT$(n$,3) 

250 PRINT"Jeg søger efter "n$"..." 

260 FOR j=0 TO 3:fundet=0 

270 adr=buffer:CALL &AOOO,rd,0,0-&C1+j,buffer:ds=j 
280 x$ = "“:FOR i=0 TO 15:x$-x$+CHR$(PEEK(adr+i)AND 127):NEXT: 
IF INSTR(x$,n$)>0 THEN fundet=l:1=PEEK(adr+15):IF PEEK(adr)= 
&E5 THEN fundet=0:PRINT"Slettet fil fundet..." 

290 IF fundet=0 THEN adr=adr+32:IF adr<buffer+512 THEN 280 
300 IF fundet=l THEN 330 
310 NEXT 

320 PRINT'Fil blev ikke fundet...Tryk en-tast":CALL &BB18:RE 
TURN 

330 IF 1 > 108 THEN PRINT'Fil er for lang...Tryk en tast":CALL 
&BB18:RETURN 

340 IF PEEK(adr+12)>0 THEN PRINT'Extend fundet...Fil er for 
lang...Tryk en tast":CALL &BB18:RETURN 
350 PRINT"Fi 1 fundet... Overfør es nu..." 

360 i =0 

370 blok(i)=PEEK(adr+16+i):IF blok(i) THEN i=i+l:GOTO 370 
380 blokke=i 

390 FOR i=1 TO blokke:POKE adr+15+i,&B3+i:NEXT 'Ændre filbyt 
es (sektortabe 1) 

400 * 

410 'Indlæsning af fil i hukommelsen 
420 ’ 

430 PRINT n$" læses nu..." 

440 adr = 27000:l=ROUND(1/4 + 0.25):FOR i = l TO 1 STEP 2 : 11 = ( i-1) 
/2 

450 adrl=adr+1024*tl:spor=blok(tl)*209:sektor=blok(tl)*2 MOD 


ic 


9:CALL &A000.rd,0,spor,&C1+sektor,adrl 
460 IF i = l THEN 490 


470 sektor=sektor+l:IF sektor=9 THEN spor=spor+l:sektor=0 
480 adrl=adrl+512XALL &A000,rd,0,spor,&C1+sektor.adrl 
490 NEXT 
500 * 

510 'Skriv fil tilbage i ydre spor 
520 ' 

530 PRINT n$” skrives nu..." 

540 adr=27000:FOR i=l TO 1 STEP 2:t1=(i-1)/2 

550 tll=tl+&B4:adrl=adr+1024*tl:spor=t11*209:sektor=t11*2 MO 
D 9:CALL &A000.wrt,0,spor,&C1+sektor,adrl 
560 IF i=l THEN 590 

570 sektor=sektor+l:IF sektor=9 THEN spor=spor+l•sektor=0 
580 adrl=adrl+512:CALL &A000,wrt,0,spor,&C1+sektor.adrl 
590 NEXT 

600 CALL &A000,wrt,0,0,&C1+ds,buffer 'Directory skrives tilb 
age m. ny info 

610 PRINT"Overførsel ti 1 endebragt... Tryk en tast":CALL &BB18 
:RETURN 
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ABD-filretter (1. præmie) 

Hvis du er i besiddelse af Amstradbladets database (på 
bånd), så har du sikkert siddet i den situation, at du egentlig 
gerne vil lave en ekstra »linie« i en allerede eksisterende fil. 
Det har førhen kun været muligt, hvis man oprettede en ny 
fil og tastede alle oplysningerne ind en gang mere. Dette 
trælse indtastningsarbejde har helt sikkert afholdt mange fra 
sådanne indgreb. Det er sikkert af disse grunde, at Preben 
Otto Raff har lavet detteutility til Amstrad Bladets database. 
»ABD-filretter« kan nemlig indsætte eller fjerne linier og data 
i eksisterende datafiler, således at allerede indtastede data 
kan bruges igen. F.eks. kan en adresseliste ændres til en fød¬ 
selsdagsliste: Navn, adresse o.s.v. kan ændres til Navn, Fød¬ 
selsdag, o.s.v., uden at alle navnene skal indtastes igen. 
Programmet indeholder også en meget fiks lille detalje, det 
tegner nemlig den overordnede programstruktur på skær¬ 
men. hvilket nok kan være en hjælp, hvis man ønsker at til¬ 
passe programmet efter sine egne behov. Et grafikdump af 
skærmbilledet kan ses på figur a. Derudover er programmet 
selvforklarende, så det behøver faktisk ikke flere ord med på 
vejen, jeg vil blot sige at programmøren Preben Otto Raff i 
Hellerup modtager 750.00 kr. for programmet. 

Maskiner: CPC 464/664/6128 


lO REM ***** ABD-FILRETTER-VERSION 1.2 » 
*•*•» * 

20 MCJDE 2: DIM DS(300)«GOSUB 2390 
30 INK O,13:INK 1,0:BORDER 1 
40 WINDOW #1,3,70,2,22 
50 WINDOW #2,3,78,24,24 
60 WINDOW SWAP 0,1 

70 LOCATE 19,2:PRINT "HJÆLPEPROGRAM TIL 
AMSTRADBLADETS DATABASE" 

80 LOCATE 25,4:PRINT "P. Raff (C) 1987 
vers. 1.2" 

90 LOCATE 1,7:PRINT "Dette program kan t 
ilføje og fjerne linier i DATAFILER, der 
hører til":PRINT 

100 PRINT "AMSTRADBLADETS DATABASE. For 
målet med at »ndre på linieantallet, kan 
være":PRINT 

110 PRINT "et ønske om at genbruge DATA 
fra en eksisterende DATAFIL i en ny DATA 
FIL.":PRINT 

120 PRINT "Endvidere kan hj*lpeprogramme 
t anvendes til at lise korrekt FILNAVN e 
lier"i PRINT 

130 PRINT "PASSWORD, hvis man ikke kan h 
uske disse.":PRINT 

140 PRINT "En ændret DATAFIL kan gemmes 
på bånd, og får automatisk et nyt FILNAV 
N,": PRINT 

150 PRINT "der består af de 5 første teg 
n fra det gamle - med tilføjelsen '=NY'. 
":PRINT 



TRYK EN TAST FOR AT FORTSÆTTE ! 
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160 PRINT "Fra hovedpunkterne i programm 
et kan kaldes en oversigt, hvorefter man 
fort-" 

170 PRINT42, "sætter, hvor man forlod pr 
ogrammet." 

180 L0CATE42,49,1:PRINT42, "TRYK EN TAST 
FOR OVERSIGT !" 

190 WHILE INKEY*=.. 

200 p=105:q=392:G0SUB 1890 
210 REM ***** LADE ***** 

220 CLS:PRINT "Når DATAFILEN er inde, ko 

mmer en automatisk udlistning, der kan" 

230 PRINT "standses med ESC og fortsætte 

s med vilkårlig tast!":PRINT 

240 PRINT "For at kunne se, om der i FIL 

NAVN eller PASSWORD er brugt mellemrum f 

prst" 

250 PRINT "eller sidst, vises de mellem 
pile (";CHR*(243>;" ";CHR*(242);").":PRI 
NT 

260 PRINT "Læg kassetten med den ønskede 
DATAFIL i og -" 

270 OPENIN " 

280 LINE INPUT #9,NAVN* 

290 LINE INPUT #9,PAS* 

300 INPUT #9,LIN 
310 INPUT #9,ANT 
320 LINE INPUT #9,OPR* 

330 LINE INPUT 49,OPD* 

340 FOR Z^l TO (ANT+1)*LIN 
350 LINE INPUT 49,D*(Z) 

360 NEXT Z 
370 CLOSEIN 
380 GOTO 580 

390 REM ***** GEMME ***** 

400 CLS:PRINT "For at skelne den ændrede 
DATAFIL fra den oprindelige, får den ny 
e DATAFIL" 

410 PRINT "et andet navn, der består af 
5 FØRSTE TEGN fra det GAMLE FILNAVN, .ned 
til-" 

420 PRINT "føjeisen ’*NY' - I DAT 
ABASEN kan FILNAVNET korrigeres igen !": 
PRINT 

425 IF RIGHT*(NAVN*,4)=".ABD" THEN NAVN* 
=LEFT*(NAVN*,5)+"=NY.ABD":GOTO 440 
430 NAVN*=LEFT*(NAVN*,5)+"=NY" 

440 PRINT "DATAFILEN vil blive gemt unde 
r navnet: ";NAVN*:PRINT 

450 OPENOUT NAVN* 

460 PRINT 49,NAVN* 

4/0 PRINT 49,PAS* 

480 PRINT 49,LIN 
490 PRINT 49,ANT 
500 PRINT 49,OPR* 

510 PRINT 49,OPD* 

520 FOR Z=1 TO (ANT+1)*LIN 
530 PRINT 49,D*(Z) 

540 NEXT Z 
550 CLOSEOUT 
560 CLS:GOTO 760 

570 REM ***** LISTNING AF DATA ***** 

580 ON BREAK GOSUB 2550 

590 PRINT42,"Listning kan standses med E 
SC og fortsættes igen med vilkårlig tast 

I •• 

600 PRI NT:PRINT CHR*(243);"FILNAVN";CHR* 
(242);SPACE*(11);": ";CHR*(243)jNAVN*;CH 
R*(242) 


610 PRINT CHR*(243);"PASSWORD";CHR*(242) 
;SPACE*(10);": ";CHR*(243);PAS*;CHR*(242 
) 

620 PRINT "ANTAL LINIER : ";LIN 

630 PRINT "ANTAL REGISTRERINGER: ";ANT 
640 PRINT "OPRETTET DATO : ";0PR* 

650 PRINT "OPDATERET DATO « ";OPD* 

660 PRINT:PRINT "DATALINIE NR. 1 TIL "jL 
IN;" INDEHOLDER LINIENAVNE":PRINT 
670 FOR Z=1 TO LIN 

680 PRINT "NAVN PA LINIE ";«PRINT USING 
"44";Z;:PRINT": M ;D*(Z) 

690 NEXT 

700 PRINT STRING*(69,"-") 

710 FOR Z=LIN+1 TO (ANT+1)*LIN 

720 PRINT "DATALINIE NR. ";:PRINT USING 

"444"}Z;:PRINT.. 

730 NEXT Z 

740 ON BREAK STOP 

750 REM ***** INPUTLINIER ***** 

760 BORDER 1:PRINT CHR*(7):INPUT42, "SKA 
L DATA LISTES IGEN (J/N) (0=0VERSIGT> +E 
NTER ";SPM* 

770 SPM*=UPPER*(SPM*):IF SPM*="J" THEN 5 
80 

780 IF SPM*="0" THEN 1770 

790 IF SPM*="N" THEN 810 

800 IF SPM*< >"N" THEN 760 

810 PRINT CHR*(7):INPUT42, "SKAL NYE LIN 

IER TILFØJES (J/N) <0=0VERSIGT) +ENTER " 

; SPM* 

B20 SPM*=UPPER*(SPM*>:IF SPM*="J" THEN G 
OSUB 1080 

830 IF SPM*="0" THEN 1790 

840 IF SPM*="N" THEN 860 

850 IF SPM*< >"N" THEN 810 

860 PRINT CHR*(7):INPUT42, "SKAL LINIER 

FJERNES (J/N) (0=0VERSIGT) +ENTER ";SPM* 

870 SPM*=UPPER*(SPM*)iIF SPM*="J" THEN 1 
470 

880 IF SPM*="0" THEN 1810 

890 IF SPM*="N" THEN 910 

900 IF SPM*< >"N" THEN 860 

910 PRINT CHR*(7):INPUT42,"SKAL DATA GEM 

MES PA ANDET BAND (J/N) (0=0VERSIGT> +EN 

TER ";SPM* 

920 SPM*=UPPER*(SPM*):IF SPM*="J" THEN 3 
90 

930 IF SPM*="0" THEN 1830 

940 IF SPM*="N" THEN 960 

950 IF SPM*<>"N" THEN 910 

960 PRINT CHR*(7):INPUT42,"SKAL NY DATAF 

IL INDLÆSES (J/N) (0=0VERSIGT) +ENTER "; 

SPM* 

970 SPM*=UPPER*(SPM*):IF SPM*="J" THEN C 

LEAR:DIM D*(300):GOTO 210 

980 IF SPM*="0" THEN 1850 

990 IF SPM*="N" THEN 1010 

1000 IF SPM*< >"N" THEN 960 

1010 PRINT CHR*(7):INPUT42,"SKAL PROGRAM 

MET STOPPES (J/N) (0=0VERSIGT) +ENTER "; 

SPM* 

1020 SPM*=UPPER*(SPM*):IF SPM*="J" THEN 
1060 

1030 IF SPM*="0" THEN 1870 

1040 IF SPM*="N" THEN 580 

1050 IF SPM*< >"N" THEN 1010 

1060 INK 0,1:INK 1,24:MODE 1:PRINT "Prog 

rammet kan evt. startes igen !":PRINT 


1070 PRINT "(Tast: RUN ";CHR*(242)jCHR* 
(153);")PRINT:END 

1080 REM ***** TILFØJE NYE LINIER ***** 
1090 CLS:IF LIN=15 THEN 1450 
1100 PRINT "EFTER HVILKEN LINIE SKAL DER 
TILFØJES NY/E LINIE/R":PRINT 
1110 FOR Z=1 TO LIN 

1120 PRINT "NAVN PA LINIE "j:PRINT USING 
:Z::PRINT": ":D*(Z) 

1130 NEXT 

1140 PRINT:INPUT "INDTAST LINIENUMMER (H 
VIS O TILFØJES FØR 1. LINIE) +ENTER ";NR 
1150 IF NR<O THEN 1140 
1160 IF NR>LIN THEN 1140 
1170 FRINT 

1180 PRINT "HVOR MANGE LINIER SKAL TILFØ 
JES ( 1 15-LINj:INPUT") +ENTER "jANTA 
L 

1190 IF ANTAL<0 THEN 1180 
1200 IF ANTALX15-LIN) THEN 1180 
1210 IF (ANT+1)*(LIN+ANTAL)>300 THEN BOR 
DER 3:SOUND 5,956,200,4tPRINT:PRINT "DER 
ER IKKE PLADS NOK !"«FOR A=1 TO 6000:NE 
XT:GOTO 760 

1220 Zl=(ANT+1)*(LIN+ANTAL) 

1230 Z=(ANT+1)*LIN 

1240 IF LIN-NR=0 THEN 1350 

1250 TOR a=1 TO (LIN-NR) 

1260 D*(Z1)=D*(Z) 

1270 Z1=Z1-1:IF Z1=0 THEN 1430 

1280 Z=Z-1 

1290 NEXT:GOTO 1350 

1300 FOR a=1 TO LIN 

1310 D*(Z1)=D*(Z> 

1320 Z1«=Z 1-11 IF Z1=0 THEN 1430 
1330 Z=Z-1 
1340 NEXT 

1350 FOR a=l TO ANTAL 

1360 IF Zl<(LIN+ANTAL+1) THEN 1390 

1370 D*(Z1)=STRING*(50,32) 

1380 GOTO 1400 

1390 D*(Z1)="NYT LINIENAVN "i REM (6 

SPC. ) 

1400 Z1=Z1—1lIF Z1=0 THEN 1430 

1410 NEXT 

1420 GOTO 1300 

1430 LIN=LIN+ANTAL 

1440 GOTO 760 

1450 BORDER 3:S0UND 5,956,200,4:PRINT "D 
ER KAN IKKE TILFØJES LINIER, DA DATABASE 
N MAX. RUMMER 15 LINIER !" 

1460 FOR A=1 TO 6000:NEXTi GOTO 760 
1470 REM ***** FJERNE LINIER ***** 

1480 CLS:IF LIN=1 THEN 1740 

1490 BORDER 5,6:SPEED INK 30,30:S0UND 5, 

60,200,4 

1500 PRINT "FARLIG KOMMANDO ! 

1510 PRINT "AF SIKKERHEDSGRUNDE KAN KUN 
FJERNES 1 LINIE AD GANGEN •" 

1520 PRINT:PRINT "HVILKEN AF FØLGENDE LI 
NIER SKAL FJERNES ?" 

1530 FOR Z=1 TO LIN 

1540 PRINT "NAVN PA LINIE ";:PRINT USING 

"tt#"; Z; : PRINT.. D* (Z) 

1550 NEXT 

1560 PRINT:PRINT "EVENTUELLE DATA I LINI 
EN TABES FOR ALLE DATAREGISTRERINGER !" 


1570 INPUT "INDTAST LINIENR. (FORTRYD ME 
D NR. STØRRE END SIDSTE LINIENR.) +ENTER 
"; NR 

1580 IF NR>LIN THEN 1730 
1590 IF NR<1 THEN 1570 
1600 Z=0:Z1=0 
1610 IF NR=1 GOTO 1660 
1620 FOR A=1 TO NR-1 
1630 Z = Z + 1:Z1=Z1+1 

1640 D*(Z1)=D*(Z)iIF Z 1 = (ANT +1) * (LIN-1) 
GOTO 1720 
1650 NEXT 
1660 Z=Z+1 

1670 FOR A=1 TO LIN-1 
1680 Z=Z+1:Z1=Z1+1 

1690 D*(Z1)=D*(Z):IF Z1=(ANT+1)*(LIN—1) 

GOTO 1720 

1700 NEXT 

1710 GOTO 1660 

1720 LIN-LIN -1 

1730 CLS:GOTO 760 

1740 BORDER 3:S0UND 5,956,200,4:PRINT "D 
ET ER IKKE RELEVANT AT FJERNE DEN ENESTE 
LINIE I DATABASEN !" 

1750 FOR A=1 TO 6000:NEXT:GOTO 760 
1760 REM ***** SUBRUTINER FOR OVERSIGT * 
**** 

1770 p=74:q=260:GOSUB 1890 
1780 GOTO 760 

1790 p=66:q=216:GOSUB 1890 
1800 GOTO 810 
1810 p=70:q=172:GOSUB 1890 
1820 GOTO 860 

1830 p=75:q=128:GOSUB 1890 

1840 GOTO 910 

1850 p=6B:q=84:GOSUB 1890 

1860 GOTO 960 

1B70 p=82:q=40:GOSUB 1890 

1880 GOTO 1010 

1890 REM ***** TEGNERUTINE ***** 

1900 CLG:TAG:INK O,13:INK 1,3:BORDER 13 

1910 RESTORE 

1920 READ f,x,y 

1930 IF F=1 THEN MOVE x,y 

1940 IF f=2 THEN MOVER x,y 

1950 IF -f=3 THEN DRAWR x,0:DRAWR 0,y:M0V 

ER 1,-y:DRAWR O,y:DRAWR -x,O:DRAWR 0,-y: 

MOVER -l,y:DRAWR 0,-y 

1960 IF f=4 THEN DRAWR x,y:MOVER l-x,-y: 
DRAWR x,y:MOVER -1,0 

1970 IF f=5 THEN MOVER x,y:PRINT CHR*(24 
5);:MOVER -8,0 

1980 IF -f =6 THEN MOVER x,y:PRINT CHR*(24 
61 i:MOVER -8,0 

1990 IF i =7 THEN MOVER x,y:PRINT CHR*(24 
7)j:MOVER -8,0 

2000 IF -f=9 THEN MOVER x ,y: READ tekst*: P 
RINT tekst*; 

2010 IF -f = 10 THEN INK 1,0: GOTO 2030 
2020 GOTO 1920 
2030 MOVE 0,0 

2040 EVERY 30,2 GOSUB 2090 

2050 WHILE INKEY*="":WEND 

7060 MOVE 640,0:PRINT REMAIN (2);REMA IN 

(3) 

2070 TAGOFF:CLG:BORDER 1 
7080 RETURN 

2090 MOVE p,q:PRINT"*";:AFTER 15,3 GOSUB 
2110 

7100 RETURN 


2020 GOTO 1920 
2030 MOVE 0,0 

2040 EVERY 30,2 GOSUB 2090 

2050 WHILE INKEYf="":WEND 

2060 MOVE 640,OsPRINT REMAIN (2);REMAIN 

(3) 

2070 TAGOrF:CLG:BORDER 1 
2000 RETURN 


2370 DATA 1,0,0,9,300,392,# - HER STAR D 
U,9,-30,-370,TRYK EN TAST FOR AT FORTSÆT 
TE ! 

2380 DATA 10,0,0 

2390 REM ***** DANSKE TEGN ***** 

2400 SYMBOL AFTER 90 

2410 SYMBOL 91,126,216,216,254,216,216,2 
22 


2090 MOVE p,q:PRINT"*"|iAFTER 15,3 GOSUB 
2110 

2100 RETURN 

2110 MOVE p,qsPRINT" 

2120 RETURN 
2130 REM PILE 

2140 DATA 1,137,60,5,0,0,5,0,44,5,0,44,5 
,0,44,5,0,44,5,0,44,5,0,44,5,0,44 
2150 DATA 6,-94,-64,7,-31,-44,7,0,-220,7 
,220,308,7,0,-88,6,31,-44,6,220,0,6,120, 

O 

2160 DATA 6,0,-44,6,-120,0,6,-140,0,6,-8 
0,-44,6,340,12,6,0,-12,6,20,-44,6,-360,- 
44 

2170 REM BLOKKE 1 

2180 DATA 1,50,22,3,180,24,2,0,44,3,180, 
24,2,0,44,3,180,24,2,0,44,3,180,24,2,0,4 
4,3,180,24 

2190 DATA 2,0,44,3,1B0,24,2,O,44,3,180,2 

4,2,0,44,3,180,24,2,40,44,3,100,24 

2200 DATA 1,140,46,4,0,20,2,0,24,4,0,20, 

2,0,24,4,0,20,2,0,24,4,0,20 

2210 DATA 2,0,24,4,0,20,2,0,24,4,0,20,2, 

0,24,4,0,20,2,0,24,4,0,20 

2220 REM BLOKKE 2 

2230 DATA 1,270,22,3,80,24,2,0,88,3,100, 
24,2,80,44,3,100,24,2,-80,44,3,180,24 
2240 REM BLOKKE 3 

2250 DATA 2,220,0,3,80,24,2,0,-44,3,80,2 
4 

2260 REM STREGER 

2270 DATA 1,230,34,4,40,0,2,-40,44,4,400 
,0,4,0,264,4,-400,0,2,0,-88,4,380,0,4,0, 
-132,4,-240,0 

2280 DATA 2,-100,0,4,-40,0,2,0,44,4,120, 
0,2,100,0,4,40,0,2,80,0,4,40,0,2,0,44,4, 
-40,0,2,-80,0,4,-40,0,2,-180,0,4,-40,0 
2290 DATA 2,170,-56,4,0,-20,4,210,0,1,50 
,34,4,-40,0,4,0,264,4,40,0,2,0,-44,4,-40 
,0 

2300 REM TEKSTER 

2310 DATA 1,0,O,9,120,392,START,9,-60,-4 
4,INDLÆS DATA,9,-80,-44,LIST DATA,9,-80, 
-44,LISTE IGEN ? 

2320 DATA 9,-110,-44,TILFØJE LINIER 7,9, 
-125,-44,FJERNE LINIER ?,9,-l10,-44,GEMM 
E PANY ? 

2330 DATA 9,-110,-44,INDLÆSE NY FIL 7,9, 
-100,-44,STOPPE 7,9,118,O,STOP,9,-40,176 
,HVOR MANGE - HVOR 7 

2340 DATA 9,72,O,RETTE,9,-172,-44,HVOR 7 
,9,80,0,SLETTE,9,-148,-22,FORTRYD,9,-164 
,-22,GEMME 

2330 DATA 1,O,O,9,38,30,N,9,-8,220,J,9,1 
04,-12,N,9,—8,—44,N,9,—8,—44,N,9,—8,—44, 
N,9,-8,-44,N 

2360 DATA 9,78,-32,J,9,-8,44,J,9,-8,44,J 
,9,-8,44,J,9,-0,44,J 


2420 SYMBOL 92,118,200,214,214,214,38,22 
O 

2430 SYMBOL 93,56,0,124,198,254,198,198 

2440 SYMBOL 123,0,0,116,26,126,216,110 

2450 SYMBOL 124,0,0,118,204,214,102,220 

2460 SYMBOL 125,48,0,120,12,124,204,118 

2470 KEY DEF 29,1,123,91 

2480 KEY DEF 28,1,124,92 

2490 KEY DEF 26,1,125,93 

2500 KEY DEF 22,1,60,62 

2510 KEY DEF 19,1,64,96 

2520 KEY DEF 17,1,43,42 

2530 KEY DEF 39,1,44,59 

2540 KEY DEF 31,1,46,58 

2550 RETURN 

2560 END 

2570 REM ***** Linie 425 kan undvzres, h 
vis du har ny version a-f databasen. 



IRON-BASIC (2. præmie) 

Dette program har vi modtaget af Mikal Madsen, der til gen¬ 
gæld modtager 500,00 kr. af os. 

IRON-BASIC er et program, der giver nogle ekstra kom¬ 
mandoer til BASIC-programmering. Programmet henven¬ 
der sig nok mest til CPC 464 ejerne, idet enkelte af ordene 
allerede findes på CPC 664/6128. Programmet er opbygget 
omkring en hexloader, der lægger de ni nye ordrer i hukom¬ 
melsen som RSX-kommandoer. Det betyder, at komman¬ 
doerne alle starter med den velkendte lodrette streg (eller lil¬ 
le ø). der fåes ved at trykke >SHIFT< +“snabel-A", hvorefter 
kommandoens navn kommer. 

De ni nye kommandoer fungerer på følgende måde: 

DHIGH.x 

Denne kommando bruges, hvis man vil fremhæve noget, 
symbolerne bliver dobbelt så store som normalt. Paramete- 
ret x angiver ASCII-koden på det symbol, man ønsker ud¬ 
skrevet (på cursorens plads). 

FLUSH 

Hvis man i sine egne programmer har en high-scoreliste, vil 
man hurtigt opdage, at når man skal skrive sit navn, er der tit 
fyldt med symboler. Dette kan undgåes ved at bruge denne 
ordre, da den sletter alle tegn i input-bufferen, (det er den 
samme som CLEARINPUT på 6128'eren). 

FRAME 

Denne kommando er også en genganger fra 6128’eren. 
Kommandoen synkroniserer udskriften af grafik på skær¬ 
men med atlbage løbet af billedscanningen, der bevirker, at 
udskriften på skærmen bliver jævnere uden blink og hop. 
COPYCHAR.x,y.Åc% 

Kommandoen læser en karakter fra det angivne koordinat¬ 
sæt og gemmer ASCII-koden i variablen, (variablen skal nul¬ 
stilles umiddelbart før). 

GRAPHPEN.p.pp 

Ændrer farven på grafikpennen, p er pennummeret på pa- 
perfarven, pp er ligeledes pennummeret på penfarven. 
TRIANGELE,x,y,xl.yl 

Ordren bruges til at tegne en trekant på den nuværende cur¬ 
sorposition i koordinatsættene (x,y), (xl.yl). 

WAITKEY 

Venter på et tryk på en vilkårlig tast. 

BOX,x,y,b,h 

Ordren tegner en firkant på koordinatsættet x,y, med bred¬ 
den b og højden h. 

PAUSE.n 

Ordren bruges til at holde en pause på n gange 1/50 sekund, 
men hvis der trykkes på en tast, går programmet automatisk 
videre. 

Maskiner: CPC 464/664/6128 


10 •- 

20 * I RQN — BAS I C 

30 - IS 

4 0 ’ MADE BY 

50 * J.RASMUSSEN & M. MADSEN 

60 ’ FROM 

70' ORION SOFT. 

øO ■- 

90 * 

100 T=0: FOR X=!<9C84 TO &9E1B 

110 READ AT 

120 Y-VAL("&"+ Af ) 


130 POKE X,Y 
140 T=T+Y 

150 NEXT X:IF T<>52863 THEN PRINT "*Erro 
r* in data":END 
160 C ALL ?<9CB4 

170 DATA 01,C4,9D,21,IB,9E,CD,Dl,BC,C9,F 
E,04,28,01,C9,CD,CA,9C,DD,5E,02,DD,56,03 
180 DATA 21,00,00,CD,F9,BB,11,00,00,DD,6 
E,00,DD,66,01,ED,F9,BB,CD,CA,9C,11,00,00 
190 DATA DD,6E,00,DD,66,01,CD,F9,BB,21,O 
O,00,DD,5E,02,DD,56,03,CD,F9,BB,C9,DD,6E 
200 DATA 04,DD,66,05,DD,5E,06,DD,56,07,C 
D,CO,BB,C9,CD,18,BB,C9,FE,01,CO,DD,4E,00 
210 DATA DD,46,01,C5,CD,19,BD,CD,1B,BB,3 
8,07,Cl,OB,78,Bl,20,F1,C9,C1,C9,DD,7E,00 
220 DATA FE,00,28,07,CD,5A,BB,DD,23,18,F 
2,3E,OD,CD,5A,BB,3E,OA,CD,5A,BB,C9,FE,O1 
230 DATA CO,CD,06,B9,F5,DD,7E,00,CD,A5,B 
B,DD,21,40,9C,06,08,7E,DD,77,00,DD,23,DD 
240 DATA 77,00,DD,23,23,10,F2,F1,CD,OC,B 
9,3E, FE ,21,40,9C, CD, A8 , BB , 3E, FF ,21,47,9C 
250 DATA CD,A8,BB,3E,FE,CD,5A,BB,3E,OA,C 

D, 5A,BB,3E,08,CD,5A,BB,3E,FF,CD,5A,BB , C9 
260 DATA CD,09,BB,38,FB,C9,CD,19,BD,C9,F 

E, 03,CO,DD,66,04,DD,6E,02,CD,75,BB,CD,60 
270 DATA BB,DD,6E,00,DD,66,01,30,05,77,2 
3,36,00,C9,36,00,23,36,O1,C9,FE,02,CO,DD 
280 DATA 7E,00,CD,E4,BB,DD,7E,02,CD,DE,B 

B, C9,FE,04,CO,CD,C6,BB,D5,E5,CD,B4,9D,DD 
290 DATA 23,DD,23,DD,23,DD,23,CD,B4,9D,E 
1,D1,CD,F6,BB,C9,DD,6E,00,DD,66,01,DD,5E 
300 DATA 02,DD,56,03,CD,F6,BB,C9,E1,9D,C 
3,8E,9C,C3,DA,9C,C3,DE,9C,C3,12,9D,C3,5C 
310 DATA 9D,C3,62,9D,C3,66,9D,C3,88,9D,C 
3,98,9D,42,4F,D8,57,41,49,54,4B,45,D9,50 
320 DATA 41,55,53,C5,44,48,49,47,CB,46,4 

C, 55,53,C8,46,52,41,4D,C5,43,4F,50,59,43 
330 DATA 48,41,02,47,52,41,50,48,50,45,C 
E,54,52,49,41,4E,47,4C,C5,00,FB,A5,C4,9D 
340 MODE 1:'** DEMO #* ER IKKE NODVENDIG 
T 

350 FOR X=0 TO 632 STEP 64 
360 MQVE 320,200 

370 øTRIANGLE,X,350,X,272:OTRIANGLE,X+48 

,350,X+48,272 

300 NEXT X 

390 Af-"IRON-BASIC" 

400 FOR X=1 TO LEN(Af) 

410 Bf=MIDf(Af,X,1> 

420 LOCATE (4*X)-2,5:pDHIGH,ASC(Bf) 

430 NEXT X 


440 Af(1)="øDHIGH 

øFLUSH 

øF 

RAME" 



450 Af(2)=”øCOPYCHAR 

øGRAPHPEN 

ØT 

RI At IGLE" 



460 Af<3)*"øWAITKEY 

ØBOX 

ØP 


ANSE" 

470 FOR X=1 TO 3 

480 FOR Y=1 TO LEN(Af(X)) 

490 Bf-MIDf(Af < X) ,Y,1) 

500 LOCATE Y+2,13+(3*X>:øDHIGH,ASC(Bf) 
510 NEXT Y 
520 NEXT X 

530 øBOX,1,1,638,180:øTRIANGLE,1,180,320 
,200 

540 øWAITKEY:MODE 1 




Morsetræner (2. præmie) 

Overvejer du at tage et telegrafist-kursus pr. korrespondan¬ 
ce? Hvis det er tilfældet, så synes jeg du skulle prøve at ind¬ 
taste det næste program, som kommer fra Peter Raunholt i 
Egå, Hans program kan måske ikke give dig en statskontrol¬ 
leret eksamen, men det kan i hvert tilfælde opøve dine fær¬ 
digheder udi telegrafiens obskure verden. 

Programmet rummer en fantastisk masse muligheder og er 
meget overskueligt opbygget. Vi belønner Peter Ravnholt 
med 500,00 kr. for hans arbejde. 

Maskiner: CPC 464/664/6128 



20 ' ********* MORSETRÆNER ********** 

30 ' ** Af Peter Ravnholt 1987 ** 

40 '** En STARS0FT præsentation !!! ** 

50 ' 

60 ' ********** Variabler *********** 

70 ‘ 

80 MODE 1 

90 LOCATE 10,12: PRI NT"IN1TIALISERING.... 

100 DIM bog*(49),kod*(49>,of*(171) 

110 RESTORErFOR a=l TO 49 
120 READ bog*(a),fcod* (a) 

130 NEXT 

140 FOR a=l TO 171:READ of*(a):NEXT 
150 pr = 12:tone=100:hast 1 = 1:hast2=60 
160 i ps-f =0 

170 INK 0,0:INK 1,26:INK 2,6:INK 3,20:BO 
RDER 0 

180 RANDOMIZE TIME 
190 ' 

200 ' ********** Danske karakterer ***** 
***** 

210 ' 


220 SYMBOL AFTER 48 

230 SYMBOL 48,56,108,198,214,198,108,56, 

0 

240 SYMBOL 79,124,198,198,198,198,198,12 
4,0 

250 SYMBOL 91,126,204,204,254,204,204,20 

6,0 

260 SYMBOL 92,124,198,206,214,230,19B,12 
4,0 

270 SYMBOL 93,24,0,60,102,126,102,102,0 
280 SYMBOL 123,0,0,118,26,126,216,110,0 
290 SYMBOL 124,0,6,60,110,118,102,124,19 


300 SYMBOL 125,56,0,120,12,124,204,118,0 

310 SYMBOL 94,0,0,0,24,24,0,0,0 

320 KEY DEF 26,1,123,91 

330 KEY DEF 17,1,124,92 

340 KEY DEF 19,1,125,93 

350 GOTO 470 

360 ' 

370 ' ********* Morse tekst ********** 

380 ' 

390 PR I NT tt 1 , T AB (35) “ T E K S T" : LOCATE 1, 
11:PRINT"Tekst, som skal morses ?":curx= 
26:GQSUB 2880:tekst*=sr* 

400 f1=1:f12=0 
410 GOSUB 2480 

420 PRINT:PRINT:PRINT"Tryk en tast for m 
enu": CALL I.BB18 
430 fl=0 
440 ' 

450 ' ********** Hoved menu *********** 

460 ' 

470 PRINT CHR*(7):MODE 1 

480 PAPER 2:PEN 3:L0CATE 9,2:PRINT"M O R 

R F T P * »• c- OH 

470 LOCATE 10,3:FRINT" 


500 LOCATE 12,4:PRINT CHR*(164)" STARSOF 

T t 987":PArER O:PEN 1 

510 LOCATE 15,10:PR I NT"Hoved menu:" 


520 WINDOW 10,32,14,25 

530 PRINT"Tekst.1" 

540 PRINT"Morsetraming I.2" 

550 PR I NT"MT>r setræning II.3" 

560 PRINT"Morsenøgle I.4” 

570 PRINT"Morsenøgle II.5" 

500 PRINT"Indstil tonehøjde...6" 
590 PRINT"Indstil mel 1 emrum...7" 
600 PRINT"Indstil hast ighed...8" 

610 PRINT" Instrukt i oner.9" 

620 WINDOW 1,80,1,25 


630 a*= INKEY*:1F a*="" THEN 630 
640 FRINT"" 

650 IF ASC(af)<48 OR ASC(a*>>57 THEN 630 
660 MODE 2: WINDOWttl , 1,80, 1,1: WIND0W#2, 1 , 
80,25,25::WINDOW 1,80,2,24:PAPER#1,1:PEN 
#1,0:PAPER#2,1:PEN#2,0:CLS#1:CLS#2:PRINT 
#2,T AB(25)"M 

ORSETRÆNER "CHR*(164)" STARSOFT 1987" 
670 valg=VAL(a*) 

680 ' 

690 ' ********** Ny tone, hastighed **** 
******* 

700 ' 

710 IF valg=6 THEN PRINT#1,TAB(22)"N Y 
TONEHØJD E":LOCATE 1,11:PRINT"Ny 
tonehøjde (Hz) ?":curx=22:GOSUB 2760:ton 
e=ROUND(6250 











O/tal):IF torie>4095 THEN 710 ELSE GOTO 4 
70 

720 IF valg = 7 THEN PRINT#1,TAB<23)"I N D 
STIL MELLEMRU M" :LOCATE 1,11 
:FRINT"Ny mellemrums længde ? <l=normal 
1.5=halvande 

n 2~dobbelt 3=tredobbelt)":curx=72::GOSU 
B 2760:hastl=tal:IF hastlCl OR hastl>3 T 
HEN 720 ELSE GOTO 470 

730 IF valg=B THEN PRINT#1,TAB(24)"I N D 
STIL HASTIGHE D":LOCATE 1,11 
:PRINT"Ny hastighed (tegn pr. minut) <2 
0-200)7 ":cu 

rx=42:GOSUB 2760:hast2=tal:IF hast2<20 0 
R hast2>200 THEN 730 ELSE pr=720/hast2:G 
OTO 470 

740 IF valg=9 GOTO 2070 

750 ON valg GOTO 390,780,1080,1800,1870 
760 * 

770 ' *********** Morsetræning I ******* 
***** 

780 ' 

790 PRINT # 1 , TAB (26) "M ORSETRfENI 
N G I”:LOCATE 1,9:PRINT"Skal prikker og 
streger udskrives pa skærmen ? (J/N)”:G 
OSUB 2690:IF 

ja=l THEN -f 12=1 ELSE F12=0 
800 LOCATE 1,11:PRINT"Skal computeren se 
nde til-fældiye bogstaver (B) eller ord ( 
0) " 

810 IF INKEY <34)=0 THEN 890 
820 IF INKEY(54)=0 THEN 840 
830 GOTO 810 

840 CLS:LOCATE 1,11:PRI NT"Hvor mange bog 

staver skal computeren sende ? (1-40)":c 

ur:;=53: GOSUB 2760: anbog=tal : IF anbog< 1 O 

R anbog>40 T 

HEN 840 

850 tekst*="" 

860 CLS: LOCATE 1 ,10: PRINT M Dannel se a-f te 


870 FOR qaz = 1 TO anbog:GOSUB 1680:tekst* 
=tekst*+tegn*:NEXT qaz 
B80 GOTO 940 

890 CLS:LOCATE 1,11:PRI NT"Hvor mange ord 
skal computeren sende 7 (1-20)":curx=47 
:GOSUB 2760:anord=tal:IF anordCl OR anor 
d >20 THEN 89 
O 

900 tekst*="" 

910 CLS 

920 LOCATE 1,10:PRINT"Dannelse aF ord... 

930 FOR a=l TO anord:tekst*=tekst*+oT*(I 
NT(RND*120)+1> +" ":NEXT a 
940 f1=0:CLS:PRINT:GOSUB 2480 
950 PRINT:PRINT"Hjælp (J/N)?" 

960 GOSUB 2690:IF ja=l THEN 970 ELSE 470 
970 q=0:PRINT:PRINT“Tryk en tast For et 
tegn: " 

980 FOR q=l TO LEN(tekst*) 

990 CALL &BB18 

1000 stor*=MID*(tekst*,q,1):IF stor*="æ" 
THEN stor*="(t" 

1010 IF stor*—"0" THEN stor*= M 0“ ELSE IF 
stor*="å" THEN stort="A" 

1020 stor*=UPPER*(stor*):PRINT stor*; 
1030 NEXT q 


1040 PRINT:PRINT"Sidste tegn. Tryk en ta 
st For menu":CALL &BB18:G0T0 470 
1050 • 

1060 * ************ Morsetraning II **** 
******** 

1070 ' 

1080 PR I NT # 1 , T AB (26) " M ORSETRIENI 
N G II":IF ipsF=0 THEN ipsF=l:GOSUB 11 
90 ELSE LOCATE 1,11:PRINT"Vi1 du indlæse 
nye prikker 

og streger 7 (J/N)“:GOSUB 2690:IF ja=l 
THEN GOSUB 1190 
1070 GOSUB 1680 

1100 Flrt*=tegn*:IF tegn*="0" THEN Flrt* 

= "ø» 

1110 LOCATE 1,10:PRINT"Send tognet : *"F 

lrt*"' med <SPACE TASTEN>" 

1120 PRINT:PRINT:ukF =0:GOSUB 1470:PRINT 
1130 IF ukF=l OR atOtegn* THEN PR I NT "Fe 
jl! Du kan have lavet For korte streger 
eller for lange prikker.":PRINT " "Flrt* 
" morses sa 

1 edes: ";:tekst*=tegn*:F12=1:F1=0:GOSUB 
2480:GOTO 1150 

1140 PRINT "Rigtigt!!!":G0T0 1150 
1150 PRINT:PRINT"Tryk <ENTER> For menu, 
<M> For et tegn til" 

1160 IF INKEY(18)=0 THEN 470 
1170 IF INKEY(38)=0 THEN 1090 
1180 GOTO 1160 
1190 ' 

1200 ' *********** Indlæsning aF prikker 
og streger *********** 

1210 1e=0 

1220 CLS:FOR q=l TO 3 

1230 LOCATE 1,11:PRINT"Send en prik med 
<SPACE TASTEN>:" 

1240 WHILE NOT INKEY(47)=0:WEND 
1250 WHILE INKEY(47)=0 
1260 1e=le+1:SOUND 1,tone,1.3,15 
1270 WEND 

1280 PRINT“Ok_":FOR p=l TO 1000:NEXT 

P 

1290 CLS 

1300 NEXT q 

1310 gprik=ROUND(le/3) 

1320 1e=0 

1330 CLS:FOR q=l TO 3 

1340 LOCATE 1,11:PRINT"Send en streg med 
<SPACE TASTEN>:" 

1350 WHILE NOT INKEY(47)=0:WEND 
1360 WHILE INKEY(47)=0 
1370 le=le+1:SOUND 1,tone,1.3,15 
1380 WEND 

1390 PRINT"Ok_":F0R p=l TO 1000:NEXT 

P 

1400 CLS 
1410 NEXT q 

1420 gstreg=ROLJND (le/3) 

1430 in i t= (gpri k + (gstreg-gpr i k) /2) -gpri k 
1440 RETURN 
1450 • 

1460 ' *********** Gendkending aF prikke 
r og streger ************ 

1470 ' 

1480 1e=0:mtg$="" 

1490 WHILE NOT INKEY(47)=0: WEND 

1500 WHILE INKEY(47)=0 

1510 1e=le+1:SOUND 1,tone,1.3,15: 

1520 WEND 




1530 IF 1e<=mit THEN mtgf=mtgt+"0"s PRINT 
ELSE mtgf=mtgt+" 1" : PRINT" — " ; 

1540 paut=0: WIIILE MOT INKEY(47)=0 
1550 paut=paut+l 
1560 IF paut >gstreg THEN 1590 
1570 UEND 

1500 1e=0:GOTO 1500 
1590 li— 1 

1600 UHILE kodf(u)< >mtgf 
1610 u-u+1:IF u >49 THEN 1640 
1620 UEND 

1630 af=bogf(u):RETURN 
164 0 Lik-f = 1: RETURN 


1980 L0CATE#3,1,1 :PRINT#3, "Genkendte* teg 
n :"gtf 

1990 1e=le+l:IF le>gprik*4 THEN gtt=gtf+ 

” PRINT" ";:GOTO 1930 

2000 IF INKEY<47> =0 THEN 1e=0:mtgf="":uk 

f =0:GOSUB 1500:IF ukf = l THEN 1930 ELSE 1 

970 

2010 IF INKEY«18)=0 THEN 470 
2020 GOTO 1990 
2030 GOTO 1930 
2040 ' 

2050 * ********* Instruktioner ********* 
* 


1650 * 

1660 * *********** Dannelse at tilfældig 
e tegn ************ 

1670 * 

1680 RANDOMIZE TIME 

1690 11=1 MT <RND*49)+1:CLS:IF tl<=29 THEN 
tegnf=CHRt(64+tl):RETURN 
1700 IF ti<=39 THEN tegnf=CHRf(47+(t1-29 
)):RETURN 


1710 IF 

ti =40 

THEN 

tegnf =". " 

ELSE 

IF 

tl = 

41 THEN 

tegnf = 

s M * •• 





1720 IF 

ti =42 

THEN 

tegnf 

ELSE 

IF 

tl = 

43 THEN 

tegnt= 

= ••/" 





1730 IF 

ti =44 

THEN 

tegnf =" (" 

ELSE 

IF 

tl = 

45 THEN 

tegnf= 

S " ) '* 





1740 IF 

11 =46 

THEN 

tegnf="=" 

ELSE 

IF 

tl = 

47 THEN 

tegnf = 

- M »1 

1 





1750 IF 

11 =48 

THEN 

tegnf=“?" 

ELSE 

IF 

ti = 

49 THEN 

tegnt= 

- II . II 

— ■ 






1760 RETURN 
1770 * 

1780 * *********** morsenoegle I ******* 
***** 


1790 

1300 PR I NT# 1 , TAB (28) " M O R S E 
I":LOCATE 1,10:PRINT"Mors på 
STEN>.":LOCATE 1,15:PRINT“Tryk 
or menu." 

1810 IF INKEY(47)=0 THEN SOUND 
3, 15 

1820 IF INKEY(18)=0 THEN 470 
1830 GOTO 1810 
1840 * 

1850 ' *********** Morsenoegle 
******* 


NØGLE 
<SPACE TA 
<ENTER> f 

1,tone,1. 


II ****** 


1860 * 

1B70 gtf="":PRINT#l,TAB(27)"M O R S E N 
ØGLE II":IF i pst=0 THEN ipsf=l:GOSUB 
1190 ELSE LOCATE 1,11:PRINT"Vi1 du indl 
æse nye prik 

ker og streger ? (J/N)":GOSUB 2690:IF ja 

=1 THEN GOSUB 1190 

1880 WINDQWH3,1,80,17,22 

1890 CLS 

1900 LOCATE 1,10:PRINT"Send med <SPACE T 
ASTEN>" 

1910 LOCATE 1,11:PRINT"Tryk <ENTER> for 
menu” 

1920 LOCATE 1,13 

1930 LQCATE#3,1,1:PRINT#3,"Genkendte teg 
n :"gtf 

1940 IF INKEY(47)=0 THEN ukf=0:1e=0:mtgf 
:GOSUB 1500:IF ukf=l THEN PRINT" ";:G 
OTO 1930 ELSE 1970 

1950 IF INKEY«18)=0 THEN GOTO 470 
1960 GOTO 1940 
1970 gtf=gtf*-af: le=0: PRINT" 
t )>250 THEN gtf="“ 


2060 * 

2070 PRINTUl,TAB(27)"I NSTRUKT I O 
N E R" 

2080 LOCATE 1,1:PRINT"M ORSE TRÆN 
E R" 

2090 LOCATE 1,3:PRINT"Instruktioner :" 
2100 LOCATE 1,5:PRINT"Marse trener er en 
slags lærer, som kan lære dig at sende 
og modtage morse." 

2110 PRINT"I 'Tekst’ kan du få en tekst 
morset for dig. Med dette kan du lære hv 
ordan bogstaverne og nogle tegn mor 

ses. " 

2120 PRINT"I 'Morsetræning I' danner com 
puteren et antal (som du vælger) forskel 
lige ord eller bogstaver, som den så m 
orser til di 

g. På den måde træner du i at genkende f 
orskel lige morsetegn." 

2130 PRINT"'Morsetræning II' er lidt mer 
e avanceret. Her bliver du bedt om at se 
nde et bes-temt tegn rigtigt. Første gan 
g er det nød 

vandigt at du indlæser prikker og s 

treger i computeren." j 

2140 PRINT" Morsenøgle I' fungerer som e 
ri ganske almindelig morsenøgle, hvor du 
kan øve digpå de forskellige tegn." 

2150 PRINT"'Morsenøgle II* er det samme 
som 'Morsenøgle I', blot skriver compute 
ren de tegnud, som den genkender." 

2160 PRINT"I morsetræning 11 og i morsen 
øgle II kan det være at computeren stopp 
er og tegynder at prøve at genkende 

et tegn før 

du er færdig med at sende det. For at u 
ndgå det kan du indlæse nogle længere st 
reger.":PRINT 

2170 PRINT:PRINT"Tryk <SPACE TASTEN> for 
næste side, <ENTER> for menu" 

2180 IF INKEY«18)=0 THEN 430 ELSE IF INK 
EY(47)=0 THEN 2190 ELSE 2180 
2190 CLS:PRINT"Med 'Indstil tonehøjde' i 
ndstiller du tonen. I 'Indstil mellemrum 
' indstiller dumellemrummene mellem bogs 
taver og ord 

. I ‘Indstil hastighed' indstiller du an 
taltegn pr. minut og dermed prikkens læn 
gde. " 

2200 PRINT:PRINT"Computeren går efter fø 
lgende enheder: En streg = tre prikker. 

Afstanden mellemtegnende i et og samme 
bugstav = en 

prik. Afstanden mellem to bogstaver = 
tre prikker. Afstanden mellem to ord = 
fem prikker." 


;:IF LEN(gt 




2210 PRINT"Tryk <A> for morsealfabetet, 
<ENTER> for menu" 

2220 IF INKEY(18)=0 THEN 430 
2230 IF INKEY(69)=0 THEN 2250 
2240 GOTO 2220 

2250 CLS:PRINT "Morsealfabetet:":PRINT: P 


RINT' 

•A 

S *** 

8- 

A A (1 

i 

2260 

PRINT"B 

_AAA 

T 

- 

9 

__A II 

2270 

PR I NT "C 

—^ — ^ 

U 

A/V_ 

0 


2280 

PRINT"D 

_AA 

V 

AAA_ 


A_A_ A_ II 

2290 

PRINT"E 

A 

w 

A_ 

/ 

_ A A_A II 

2300 

PRINT"F 

AA_A 

X 

_AA_ 

— 

_A A A A_ II 

2310 

PRINT"G 

_A 

Y 

_A__ 

• 

A_._A II 

2320 

PRI NT"H 

< 

< 

< 

< 

z 

_AA 

( 

_ A_A_II 

2330 

PRINT"I 

AA 

<(E) 

A_A_ 

) 

_A_A__ II 

2340 

OTiTfi 

PRIMT"J 

PC* T MT " \f 

A___ 

A 

(0) 
f n \ 

A 

A A 

= 

_AAA_II 

AA II 

2360 

rnlNI i\ 

PRINT"L 

A_AA 

1 

A_ 


_AAA II 

2370 

PRINT"M 

— 

2 

A A_ 

7 

AA___ A A II 

2380 

PR INT"N 

_A 

3 

A A A__ «( 



2390 

PRI NT"0 

— 

4 

A A A A__ II 



2400 

PR INT"P 

A_A 

5 

AAAAA II 



2410 

PRINT"D 

_A_ 

6 

_A AAA II 



2420 

PRINT"R 


7 

_AAA II 



2430 

MOVE 60, 

350:DRAM 60,60:MDVE 

: 147,350 


sDRAW 147,60 

2440 PRINT:PRINT"Tryk <ENTER> for menu": 
WHILE NOT INKEY <18) =0:WEND« GOTO 430 
2450 ' 

2460 ' *********** Subrutine for morsnin 
g af en tekst *********** 

2470 ' 

2480 FOR a=l TO LEN(tekst*) 

2490 b#=UPPER#(MID#(tekst#,a,l)) 

2500 IF b#="æ" THEN b*="(E" ELSE IF b*="ø 
" THEN b*="0" 

2510 IF b*="å" THEN b*="A" 

2520 IF b*=" " THEN SOUND 1,0,hast 1 *(pr* 
5),0:IF f12=1 THEN PRINT" ";:GOTO 2620 
ELSE GOTO 2620 

2530 FOR s=l TO 49:IF bog#(s)=b# THEN k* 
=kod*(s) 

2540 NEXT s 

2550 IF k*="" THEN PRINT:PRINT"Kender ik 
ke: "b*:CALL &BB18:RETURN 
2560 FOR q=1 TO LEN(k*) 

2570 IF MID#(k#,q,1)="0" THEN SOUND l,to 
ne,pr , 15: IF fl2=l THEN T 1 RINT" ys " ; 

2580 IF MID*(k*,q,l)="l" THEN SOUND 1,to 
ne,pr*3,15:IF fl2=l THEN PRINT"-"; 

2590 SOUND 1,0,pr,O 
2600 NEXT q 

2610 SOUND 1,0,hasti*(pr«3),0:IF fl2=l T 
HEN FRINT" "; 

2620 IF fl=l THEN PRINT b*; 

2630 k*="" 

2640 NEXT a 
2650 RETURN 
2660 ' 

2670 * ********** J/N Rutine ********** 

2680 ' 

2690 ja=0 

2700 IF INKEY(45)=0 THEN ja=l:RETURN 
2710 IF INKEY(46)=0 THEN RETURN 
2720 GOTO 2700 
2730 ' 

2740 ' ********** INKEY# input med tal * 
********** 


2750 ' 

2760 sr#="":cury=ll 

2770 LOCATE curx,cury:PR INT CHR*(143) 

2780 inin#=INKEYt 

2790 IF i nin#="" THEN 2780 

2800 knr“ASC(i nin#):IF knr=13 THEN LOCAT 

E curx,cury:PRINT" ":tal=VAL(sr*):RETURN 

2810 IF knr=127 AND LEN(sr*X>0 THEN LOC 

ATE curx,cury:PRINT" ":sr#=MID#(sr#,1,LE 

N(sr#>-1>:curx=curX—1:GOTO 2770 

2820 IF ASC(i nin#)<46 OR ASC(i nin#)>57 O 

R ASC(i nin#)=47 THEN 2770 

2830 IF LEN(sr#)<4 THEN LOCATE curx,cury 

:PRINT inin#:curx=curx + l:sr#=sr#+inin#: I 

F LEN(srt)>4 THEN tal=VAL(sr#):RETURN 

2840 GOTO 2770 

2850 ' 

2860 ' ********** INKEY# input med stren 

g *********** 

2870 ' 

2880 sr#="":cury=ll 

2890 LOCATE curx,cury:PRINT CHR#(143) 

2900 i nin#=INKEYt 

2910 IF i nin#="" THEN 2900 

2920 knr=ASC(inin#):IF knr=13 THEN LOCAT 

E curx,cury:PRINT " ":RETURN 

2930 IF knr=127 AND LEN(sr#)>0 THEN LOCA 

TE curx,cury:PRINT" ":sr#=MID#(sr*,1,LEN 

(srt)-l):curx=curx-l:IF curx=0 THEN curx 

=80:cury=cur 

y-1 

2940 IF knr<31 OR knr>125 THEN 2890 

2950 IF knr=127 THEN 2890 

2960 IF LEN(sr*)<250 THEN LOCATE curx.cu 

ry:PRINT i nin*:curx=curx + l:sr#=sr#+inin* 

2970 IF curx>80 THEN curx=l:cury=cury+l 

2980 GOTO 2890 

2990 ' 

3000 ’ ********* Morse alfabet & forsk, 
ord. ************ 

3010 ' 

3020 DATA A,01,B,1000,C,1010,D,100,E,O,F 
,0010,G,110,H,0000,1,00,J,0111,K,101,L,0 
100,M,11,N,10,O,111,P,0110,Q,1101,R,010, 
S,000,T,1,U, 

001 ,V,0001 ,W,01 1 ,X, 1001 ,Y, 1011 ,Z, 1100, IE, 
0101,0,1110,A,01101 

3030 DATA 1,01111,2,00111,3,00011,4,0000 
1,5,00000,6,10000,7,11000,8,11100,9,1111 
0,0,11111,.,010101,',01110,-,100001,/,10 
010,(,101101 

,),101101,=,10001,",",110011,":",111000, 
"?",001100 

3040 DATA jeg,er,har,fået,var,en,skole,c 
omputer,ja,nej,zebra,tænkte,at,prøve,mor 
se,1 et,svært,det,quick,ci tron,ude,inde,t 
ekst,program 

,som,kan,morse,fej1,navnet,hedder,peter, 
godt,ræv,klokken,xyz test,13,ar 
3050 DATA telegram,kære,mormor,ti 111 ykke 
,med,pa,i,i s,i ngenting,wales,what?,udela 
ndsk, tyski and ,::zy0-test,amstrad , zebra, go 
de,5-6,engla 

nd,norge,fra,ydre,kylling,mig,pyt,slut., 
xupqØ-test.,5/6-1986,fejl,post,og,telegr 
af 




3060 DATA hi 1 E,en ,iren,hans, ka j ,engl i sh, i 
u ,my ,buut, and,thi s,is,a,try, to,make,a,pr 
oyr am, ubåd , stande , qui ck , yes» , no , ( rem, a-z , m 
or ser , gi I;, ko 

mmer , tr a.rit? , spi se, hos , os , i , morgen , gal t ?, 
4-6,7/8,3/4,zx-81,cykel ,oppe,nede,tal , ko 
den,tophemmeligt.,kl ar?,k,si ut. 

3070 DATA cirkel,quick,step," wel1,",ejer 
,rum-akib,trampet,ymer,udef ra,ind,os,pakk 
e,angr eb,et,fjendtligt,er,kommer,et,et,e 
n,en,garf i el 

d,hus,jakke,kunne,1ave,zap-spi1»xylofon, 
ci tran,cykel,været »bokse,nej,mod 
3080 DATA al 1e,bul 1 dozer,denne,eksempel, 
f 1 yve,gå,husk,i kl e,jordbær,kano,larve,må 
,nu,o-.er ,p je jer , "q,f e j 1" ,rul ler , stop, ti 1 
,ugyldi g,vas 
k 

AMS-Race (3. præmie) 


310 a=20:b=6 
320 po=0 

330 '* ** **SELVE SPILLET**««* 

340 x =RQUND(RND(1)*19)+10 
350 w=R0UND(RND(11*191+10 
360 y=R0UND(RND(11*191+10 
370 z-R0UND(RND(1)*19)+10 
380 car=3 

390 L0CATE a,b:PEN 1:PRINT ct(l) 

400 LOCATE x,car:PEN 2: PRINT c4<21 

410 L0CATE w,car:PEN 2:PRINT c4<21 

420 LOCATE y,car:PEN 2:PRINT c4<21 

430 LOCATE z,car:PEN 2:PRINT c4<21 

440 IF <a=x AND b=car) OR <x=a AND car=b 

) THEN S01IND 1 , 4000,200,15,7,2,10: GOTO 5 

90 

450 IF (a=w AND b=carl OR <w=a AND car=b 
) THEN SOIJND 1,4000,200,15,7,2,10: GOTO 5 
90 

460 IF (a=y AND b=car) OR (y=a AND car=b 
) THEN SOIJND 1,4000,200, 15,7,2, 10: GOTO 5 
90 


Har du en skjult lidenskab for hurtige biler?.. Elsker du stan¬ 
ken af benzin og brændt gummi?... Men mangler du mod 
(og kapital?) til at købe en Ferrari og stille op på Silverstone, 
så får du nu dit livs chance. Med det efterfølgende program 
fra Morten Jørgensen i Silkeborg (ja, han har vundet før!) får 
du kvit og frit udleveret en Lamborghini Amstrad CPC 6128, 
og du kan uden fare for liv og lemmer stille op på den farlige 
diskette-bane, men pas alligevel på.... 

Maskiner: CPC 464/664/6128 

10 '*********************************** 


20 ' * * 

30 '* * 

40 '* LAMBORGHINI AMSTRAD CPC 6128 * 

50 '* by MEGASOFT 8600 SILKEBORG * 
60 '* (c) 1987 * 

70 •* * 

80 * * * 


90 ************************************ 

100 h=0 

110 ’*****DEFINERING AF SYMBOLER***** 

120 SYMBOL AFTER 32 

130 SYMBOL ASC ("li") , !<X 1 1OOO ,6X11011011, & 
XI1111111,&X11011011,&X11O00.&X11011011, 
(<X 11111111, ScXl 1000011 

140 SYMBOL ASC( ),&X11000011,&X1111111 

1 ,*<X1 101 101 1 ,?<X1 1000,?<X1011010,I<XU 1 1110 
,&X1011010,&X1lOOO 

150 SYMBOL ASC("0"),255,255,255,255,255, 

255,255,255 

160 f art = l00 

170 c4<l}="7.” 

180 c4<2)=. 

190 c $ < 3)=" " 

200 c*(4)= M " 

210 GOSIJB 1000: GOSUB 750 
220 ******SKAERMBILLEDE***** 

230 MODE 1:BORDER 24 

240 LOCATE 5,1:PEN 2:PRINT "LAMBORGHINI 
AMSTRAD CPC 6128" 

250 FOR i=3 TO 20 
260 FOR j=2 TO 9 

270 LOCATE j,i:PEN 3:PRINT " 0 “ :NEXT:NEXT 
280 FOR i=3 TO 20 
290 FOR j=30 TO 39 

300 LOCATE j,i:PEN 3:PR1NT "Ø":NEXT:NEXT 


470 IF (a=z AND b=car) OR <z=a AND car=b 
) THEN SOUND 1,4000,200,15,7,2,10:GOTO 5 
90 

480 IF INKEY(8)=0 OR INKEYt741=0 OR INKE 
Y(501=0 THEN FOR wqe=l TO fart:NEXT wqe: 
LOCATE a,b:PRINT c4 (31:a=a-l:LOCATE x,ca 
r:PRINT c4<4 

1:LOCATE y,car:PRINT c*<4):LOCATE z,car: 
PRINT c4(41:LOCATE w,car:PRINT c4(4):G0T 
O 550 

490 IF INKEY<11=0 OR INKEY<751=0 OR INKE 
Y(511=0 THEN FOR wqe=l TO fart:NEXT wqe: 
LOCATE a,b:PRINT c4(31:a=a+l:LOCATE x,ca 
r:PRINT c4<4 

1:LOCATE y,car:PRINT c4(41:L0CATE z,car: 
PRINT c4 < 41:LOCATE w,car:PRINT c4(4):G0T 
O 550 

500 IF INKEY(01=0 OR INKEY(721=0 OR INKE 
Y(481=0 THEN fart=5:LOCATE x,car:PRINT c 
4(4):LOCATE y,car:PRINT c4(4):LOCATE z,c 
ar:PRINT c4( 

41:LOCATE w,car:PRINT c4(4):G0T0 550 
510 IF INKEY(21=0 OR INKEY(731=0 OR INKE 
Y(491=0 THEN fart = 100:LOCATE x,car:PRINT 
c4(4):LOCATE y,car:PRINT c4(4):L0CATE z 
,car:PRINT c 

4(4):LOCATE w,car:PRINT c4<41:GOTO 550 
520 IF a<=9 OR a>=30 THEN LOCATE a,b:PEN 
3:PRINT c4(5):a=20 

530 po=po+100:LOCATE 31,10:PEN 1:PRINT p 
o:LOCATE 31,11:PRINT h 

540 FOR wqe=l TO fart:NEXT wqe:LOCATE x, 
car:PRINT c4(4):L0CATE w,car:PRINT c4(4) 

:LOCATE y,car:FRIMT c4(4):L0CATE z,car:P 
RINT c4 < 4) 

550 car=car+1:IF car>12 THEN car=3:G0T0 
570 

560 GOTO 390 
570 GOTO 340 
580 • «****CRASH***** 

590 MODE 1 


600 

PEN 1 





610 

G" 

PRINT "BBBBBB 

AA 

NN 

NN 

GGG 

620 

GG” 

PRINT " BB BB 

AAAA 

MNN 

NN 

GG 



630 

PRINT 

" BB BB 

AA 

AA 

NNNN NN 

GG" 

640 

PRINT 

" BBBBB 

AA 

AA 

NN 

NNNN 

GG" 

650 

GG" 

PRINT 

" BB BB 

AAAAAA 

NN 

NNN 

GG G 

660 

GG" 

PRINT 

" BB BB 

AA 

AA 

NN 

NN 

GG 

670 

GG" 

PRINT 

"BBBBBB 

AA 

AA 

NN 

NN 

GGGG 


tao IF po>=h THEN h=po 

690 PRI NT:PRINT:PRINT:PRINT "REKORD";h:P 
RIMT:PR I NT "NYT SPIL“:PRINT "(J/N)" 

700 A£=INKEYS 

710 IF A-f = “ ” THEN 700 

720 IF A*="J" OR A*="j” THEN GOTO 220 
730 IF At="N" OR AC="n" THEN END 
740 GOTO 700 
750 MODE 1:PEN 2 

760 PRINT "DIJ HAR LAANT DIN SVIGERMORS N 
YE " 

770 PRINT "LAMBORGHINI MODEL AMSTRAD CPC 
6128." 

780 PRINT "DU PROVEKORER DEN PAA DEN BER 
OMTE " 

790 PRINT "DISKETTEBANE." 

800 PRINT "DU ER KOMMET TIL AT KORE DEN 
FORKERTE" 

BIO PRINT "VEJ SAA DER KOMMER EN MASSE M 
ODKORENDE" 

820 PRINT "BILER.DIN SVIGERMOR TOR IKKE 
SVARE FOR" 

830 PRINT "FOLGERNE VIS DU KORER GALT SA 
A DERFOR " 

840 PRINT "SKAL DU PROVE AT STYRE UDENOM 
DE MODKO-" 

850 PRINT "RENDE." 

860 PRINT "DU STYRER MED ";CHRf(255);"PI 
LENE." 

870 PRINT "DU ACCELERER MED ";CHRT(240); 

" OG BREMSER MED CHR*(241>;".“ 

880 PRINT "DU KAN OGSAA BRUGE JOYSTICK." 

890 PRINT "TRYK EN TAST FOR SPIL" 

900 WHILE INKEY*="":WEND 
910 RETURN 

920 '*****SAVING***** 

930 MODE 1:PEN 1:BORDER O:PAPER O 
940 PRINT "***************************** 
**********" 

950 PRINT "************ SAVING ******* 
**********" 

960 PRINT "***************************** 
**********" 

970 SAVE "AMSRACE" 

980 MODE 2:CAT 

990 WHILE INLEY(47)=0:WEND:RUN 
1000 MODE O 

1010 LOCATE 3,1:PEN 14:PAPER 0:PRINT "CP 
C-RACER 6128" 

1020 PLOT 320,200 

1030 FOR streg=l TO 30 

1040 streg I =ROUND (RND (1 ) *639) +1 

1050 str&g2=ROUND(RND(l>*200)+100 

1060 DRAW streg 1,streg2 

1070 NEXT streg 

1080 LOCATE 4,2:PEN 15:PRINT "TRYK EN TA 
ST" 

1090 WHILE INKEY*="": 


Frugter (3. præmie) 

Vidste du, at der i din Amstrad CPC 6128 er noget af en Rem- 
brandt eller en Van Gogh eller en Verdi.... (Hov! det var vist 
ikke rigtigt)... nej vel!, men sandheden er i hvert tilfælde, at 
Bjarne Vestergaards program kan fremstille et fremragende, 
fortryllende smukt stillleben. der kan gøre enhver af de store 
mestre grøn af misundelse, og hvis jeg ikke tager meget fejl, 
så vil dette computeriserede kunstværk kunne sælges for en 
million eller to om et par hundrede år, det er bare med at 
komme igang med indtastningen og din families økonomi er 
sikret de næste mange slægtled. 

Maskiner: CPC 6128 

10 ' FRUGTER 

20 'Demo—program til AMSTRAD CPC 
30 ' -fra Magic Games Dk 

40 ' a-f Bjarne Vestergaard 
50 ' (The Magician) 

60 ' December 1984 

70 ' 

80 DEFINT a-z 

90 MODE O:INK 0,0:BORDER O:INK 1,6:INK 2 
,7:INK 3,25:INK 4,24:INK 5,21:INK 6,9:IN 
K 7,0:INK 8,26:INK 9,13,2:INK 10,1 
100 FOR q=398 TO O STEP -16:M0VE O,q:DRA 
WR 300,100,10:NEXT q 

110 FOR q=0 TO 638 STEP 32:M0VE q,O:DRAW 
R 300,100:NEXT q 

120 FOR q=300 TO 638 STEP 32:M0VE q,100: 
DRAUR O,298:NEXT q 

130 FOR q=l TO 4:IF q=l THEN ORIGIN -4,0 

140 IF q=2 THEN ORIGIN 0,170 

150 IF q=3 THEN ORIGIN 304,10 

160 IF q=4 THEN ORIGIN 304,184 

170 DATA 53,56,51,58,49,60,48,61,46,62,4 

5,63,44,64,43,65,43,65,42,66,42,66,43,67 

,45,67,48,55,49,54,49,53,49,52,48,51,52, 

48,51,48,53, 

47,51,47,52,47,51,47,50,46,52,46,53,45,5 

2,45,51,44,54,44,53,46,54,47,53,48,55,49 

,56,50,55,50,56,50,56,51,56,51,55,51,-1, 

-1 

180 RESTORE 170 
190 FOR j=30 TO 170 STEP 2 
200 READ a,b:IF a=-l THEN 240 
210 MOVE a*4,j:DRAW b*4,j,l 
220 NEXT j 

230 DATA 35,31,39,28,42,27,44,24,43,25,4 
5,21,46,22,45,19,48,18,47,19,50,18,49,16 
,49,17,49,15,47,16,45,14,42,15,41,14,41, 
14,39,13,38, 

14.37.13.34.13.31.12.30.13.29.12.27.12.2 
6,11,25,12,24,12,23,11,22,11,22,12,21,12 
,20,12,18,13,16,12,14,11,12,12,-1,-1 
240 RESTORE 230:FOR j=128 TO 212 STEP 2 
250 READ a,b:IF a=-l THEN 290 

260 MOVE a*4,j:DRAW b*4,j,2 
270 NEXT 

280 DATA 36,36,40,34,41,33,42,32,43,31,4 
2,30,43,29,42,28,43,27,42,26,43,25,42,24 
,43,24,42,22,42,22,42,22,41,23,42,24,41, 
22,40,22,40, 

22.39.22.37.22.36.22.34.22.32.22.24.22.2 
3,22,-1,-1 


WEND:RETURN 



290 RESTORE 280:FOR j=60 TO 168 STEP 2 
300 READ a,b:IF a=-l THEN 340 
310 HOVE a»4 , j:DRAM b*4,j,3 
320 NEXT 

330 DATA 65,59,66,55,6B,56,68,55,68,54,6 
9,53,69,52,69,53,69,52,69,52,69,52,69,52 
,69,52,69,52,69,53,68,52,68,51,68,52,67, 
54,67,53,67, 

52,66,55,66,54,65,55,65,54,64,56,-1,-1 

340 RESTORE 330:FOR j=46 TO 146 STEP 2 

350 READ a,b:IF a=-l THEN 380 

360 HOVE a#4,j:DRAW b*4,j,4:NEXT 

370 DATA 40,34,42,31,44,29,47,28,48,27,4 

8,26,40,37,48,41,47,42,47,43,47,44,47,43 

,46,44,46,43,46,44,46,43,45,44,45,43,45, 

44,44,43,44, 

43,43,43,43,42 

380 RESTORE 370: FOR j = 48 TO 92 STEP 2 
390 READ a,b 

400 HOVE a*4,j:DRAW b*4,j,4 
410 NEXT 

420 DATA 35,25,33,24,32,23,31,23,30,22,2 
9,22,28,21,27,21,26,21,25,20,24,20,23,20 
,24,20,23,20,24,20,23,20,22,20,23,20,22, 
20 , 21 , 20 , 22 , 

21 , 21 , 21 , 21 , 21 , 21,21 

430 RESTORE 420:FOR j=61 TO 108 STEP 2 
440 READ a , b: MllVE a*4,j:-DRAW b*4,j,4 
450 NEXT 

460 DATA 70,66,68,64,67,62,66,61,65,60,6 
2,59,62,58,61,58,59,57,60,57,59,56,58,56 
,59,56,58,55,58,55,57,55,58,55,58,55,58, 
55,59,55,59, 

55.59.55.60.56.59.56.61.57.61.57.62.58.6 
2,58,64,59,66,60,67,61,68,62,69,63,70,64 
,70,65,73,66,74,68,77,69 

470 DATA 81,70,96,72,95,74,93,77 

480 RESTORE 460:FOR j=200 TO 33 STEP -4 

490 READ a,b 

500 NC1VE j ,a*2+12: DRAW j ,b#2+1 2,8: NEXT 
510 DATA 19,42,18,43,17,44,17,45,16,46,1 
5,47,14,48,13,48,12,49,11,50,10,50,9,51, 
8,52,7,52,6,53,5,53,16,48,17,49,17,50,18 
,51,18,52,15 

,45,14,45,14,46,13,45,13,44,12,44,12,43, 

10.52.10.53.11.53.11.54.11.49.10.49.11.4 
8,10,48,10,47,9,48,9,47,8,48,19,36,18,35 
520 DATA 17,34,16,33,15,32,15,31,14,30,1 
4,29,13,28,12,27,12,26,12,25,11,25,10,24 
,10,23,17,32,17,31,17,30,17,29,18,29,18, 
28,18,27,18, 

26,15,34,14,34,13,34,13,33,12,33,11,33,1 

4,27,14,26,14,25,15,25,15,24,15,23,12,29 

,11,29,10,30,40,44,41,45,42,45,43,46,44, 

46 

530 DATA 45,47,46,48,47,49,48,50,49,51,5 
0,52,40,46,40,47,40,48,41,49,41,50,43,44 
,43,43,44,43,45,42,44,48,44,49,44,50,44, 
51,45,50,45, 

51.46.45.46.46.46.47.47.47.48.47.49.47.4 
8,48,49,48,49,49,50,49,47,51,47,52,48,53 
540 DATA 65,52,66,52,67,52,68,52,69,51,7 
0,51,71,51,72,51,73,50,74,50,75,50,76,50 
,77,50,77,49,78,49,79,48,80,47,81,46,77, 
46,78,45,70, 

50.71.49.71.48.72.47.71.52.72.53.73.54.6 
2,64,62,65,62,66,61,67,61,68,61,69,61,70 
,60,71,60,72,60,73,59,74,59,75,58,76,58, 
77 


550 DATA 57,78,62,71,61,74,60,68,59,69,5 

8,70,58,74,57/75,-1,-l 

560 GCISUB 720: RESTORE 510 

570 READ a,b:IF a=-l THEN 610 

580 PLOT a*4,b*2+l1,5:GOTO 570 

57° DATA 38,64,37,65,39,66,39,67,39,68,3 

P,6^,38,66,~n,67,38,68,38,69,37,65,37,66 

,37,67,37,68 

60-1 DATA 20,67,28,68,28,69,28,70,29,67,2 
9,68,29,67,27,70,29,71,30,68,30,69,30,70 
71,22,74,22,75,22,76,23,74,23,75,23, 
76,23,77,24, 

75.24.76.24.77.16.84.16.85.17.83.17.84.1 
7,85,17,86,18,83,18,84,18,85,18,86,19,84 
,19,85,-1,-l 

6lo RES TORE 590 

62'> READ *,h:ir a=-l THEN 650 

630 rLOr 3*4,b*2+12,7:GOTO 620 

640 DATA 14,O,IB,6,17,7,18,7,19,7,19,8,2 

0,8,21,8,21,0,20,8,20,9,20,7,19,9,19,9,1 

9,10,17,11,19,12,19,13,19,15,19,13,19,11 

,17,9,19,8,1 

9.7.19.6.19.6.17.5.18.4.18.4.18.3.17.3.1 

6.3.16.3.15.2.14.2.11.1.4.1 
650 NEXT 

660 FEN 7 

670 PRINT CURT<22)CHR*(1)" Magi c Games 
PI" 

6Ro primt "( Bjarne Vestergaard”; 

670 PRINT " The Magician )" 

700 WIIILE -1: WEND 
710 END 

720 RESTORE 640:FOR j = 40 TO 112 STEP 2 
730 READ a,b 

740 MOVE a*4,j+15:DRAW b*4,j+15,6:NEXT 

750 DATA 45,43,46,42,47,41,48,41,47,39,4 

9,38,50,38,50,38,50,39,50,37,50,40,50,41 

,50,43,51,47,51,50,51,51 

760 RESTORE 750:FOR j=75 TO 106 STEP 2 

770 READ a,b:MOVE a*4,j+15:DRAW b*4,j+15 

,6:NEXT 

780 DATA 59,57,60,58,62,58,63,57,62,56,6 
1,57,60,57,58,57,56,56,61,61,61,62,62,62 
,61,61,61,61,61,61,62,62,62,62,62,62,62, 
62,62,62,63, 

62,63,61,63,61,63,60,63,60,64,59,64,58,6 
4,58,64,57,64,57,63,56,63,56,63,56,62,55 
,62,55,61,55,60,55,60,55,59,55,58,55,57, 
55 




790 DATA 55,55 

000 RESTORE 780:FOR j=77 TO 159 STEP 2 
010 READ a,b:MOVE a*4,j+15:DRAW b*4,j+15 
,6:NEXT 

820 DATA 03,83,82,83,81,83,75,83,71,83,6 

9,83,67,83,66,82,65,82,65,81,64,81,64,80 

,65,79,66,78,67,77,69,75 

830 RESTORE 820:FOR j=93 TO 123 STEP 2 

840 READ a,b:MOVE a*4,j:DRAW b*4,j,6:NEX 

T 

850 DATA 60,48,60,49,63,53,63,54,64,55,6 

4,56,65,57,65,58,65,59,66,59,66,60,66,61 

,67,62,67,63,-1,-1 

860 RESTORE 850 

870 READ a,b:1F a=-l THEN 910 

880 PLOT a*4,b*2+10,6:GOTO 870 

890 DATA 69,67,68,66,66,64,64,63,63,62,6 

2,60,61,59,60,58,59,57,58,57,57,56,57,56 

, 56 , 55 , 56 , 54,55,54,55,53 , 55 , 53 , 55 , j3 , jj , 

5j,55,j j,55, 

53,55,54,55,54,56,54,56,55,57,55,57,55,5 
8,56,58,57,59,57,59,58,60,59,61,59,62,60 
,63,61,65,62,66,63,68,64,71,66,73,67,77, 
69 

900 DATA 80,72,96,75,91,80 
910 RESTORE 890:FOR j=216 TO 42 STEP -4 
920 READ a,b:MOVE j-1O,a*2+ll:DRAW j-10, 
b#2*l1,6:NEXT 

930 HOVE 36,178:DRAW 36,198,6:MOVE 40,19 
4: DRAW 40,208 
940 RETURN 

Slagskib (3. præmie) 

Kan du huske det kendte spil »Sænk slagskib«? Mange af læ¬ 
serne kan helt sikkert huske spillet fra deres skoletid, hvor 
det ofte var en yndet beskæftigelse i timerne. Reglerne går 
i al sin enkelhed ud på, at to personer placerer nogle skibe 
(læs: streger) på havet (læs: et stykke papir), hvorefter det 
gælder om at sænke modpartens skibe. Man »skyder« ved at 
opgive et koordinatsæt (f.eks. A6), og modspilleren oplyser 
så, hvis han er ærlig, om man har ramt eller ej. 

Har du fået lyst til at spille »Sænk slagskib«? Hvad siger 
du?... Har du ingen at spille med?... Hmmm, så prøv at ind¬ 
taste det næste program, som vi har modtaget fra Børge 
Hansen i Ribe, det skulle efter sigende løse dit problem. 

Maskiner: CPC 464/664/6128 


10 MODE 2 

20 DIM ramt(12,12),skib<12,12) 

30 'Nulstilling 

40 u=5: t= 6 : k= 6 : f=4: plet=0: tal =0 

50 FOR a=l TO 12 

60 FOR b=l TO 12 

70 ramt(a,b)=0: skib(a,b)=0 

80 NEXT b 

90 NEXT a 

100 CLS 

110 'Pladen tegnes 

120 PRINT " CHR*(150)j 

130 FOR a=l TO 11 

140 PRINT CHR*(154)jCHR*(a+64 >;CHR*(154) 
ICHR*(158); 

150 NEXT a: PRINT CHR*(154){CHR*(76) 5 CHR 
*(154);CHR*(156) 

160 FOR a=l TO 11 


170 PRINT USING "##"sa; 

180 FOR b=l TO 12 

190 PRINT " ";CHR*(149>; 

200 NEXT b: PRINT 
210 PRINT " ";CHR*(151)| 

220 FOR b=l TO 11 

230 PRINT CHR*(154);CHR*(154);CHR*(154); 
CHR*(159)1 

240 NEXT b: PRINT CHR*(154);CHR*(154);C 
HR*(154);CHR*(157) 

250 NEXT a: PRINT("12">; 

260 FOR a=l TO 12 

270 PRINT " ";CHR*(149); 

280 NEXT a: PRINT 

290 PRINT " ";CHR*(147); 

300 FOR a=l TO 11 

310 PRINT CHR*(154);CHR*(154) 5 CHR*(154)} 
CHR*(155)i 

320 NEXT a: PRINT CHR*(154) 5 CHR*(154)jCH 
R*(154);CHR*(153); 

330 'Placering a-f slagskib 
340 van = INT (RNDM2+1) 

350 1od=INT(RND*12+1) 

360 x = 15: y=-4 

370 WHILE x<l OR x>12 OR y<1 OR y>12 
380 r=3: GOSUB 750 
390 WEND 

400 str=4: GOSUB 810 

410 'Placering af krydsere og torpedo-ja 
gere 

420 FOR i=1 TO 5 

430 IF i<3 THEN r=2 ELSE r=l 

440 WHILE plads=0 

450 piads=l 

460 van=INT(RND*12+l> 

470 1 od = INT(RND*12+1) 

480 x=15: y =-8 

490 WHILE x<l OR x>12 OR y<1 OR y>12 
500 GOSUB 750 
510 WEND 

520 FOR a=van TO x 

530 FOR b=lod TO y 

510 IF skib(a,b)<>0 THEN plads=0 

550 NEXT b 

560 NEXT a 

570 FOR a=van TO x STEP -1 

580 FOR b=lod TO y STEP -1 

590 IF skib(a,b)<>0 THEN plads=0 

600 NEXT b 

610 NEXT a 

620 WEND 

630 str=r+l: GOSUB 810 
640 piads=0 
650 NEXT i 

660 'Placering a-f ubåde 
670 FOR i=l TO 5 
680 WHILE skib(van,1 od)<>0 
690 van=INT(RND*12+l> 

700 1od=INT(RND-*12+1) 

710 WEND 

720 skib(van,lod)=l 
730 NEXT i 
740 GOTO 930 
750 ret=INT(RND*4) 

760 IF ret=0 THEN x=van: y=lod+r 
770 IF ret=l THEN x=van+r: y=lod 
780 IF ret=2 THEN x=vani y=lod-r 
790 IF ret=3 THEN x=van-ri y=lod 



800 RETURN 
810 FOR a=van TO x 
820 FOR b=lod TO y 
830 skib(a,b)=str 
840 NEXT b 
850 NEXT a 

860 FOR a=van TO x STEP -1 

870 FOR b=lod TO y STEP -1 

880 skib(a,b)=str 

890 NEXT b 

900 NEXT a 

910 RETURN 

920 'Hovedprogram 

930 LOCATE 60,4: PRINT "Antal skud: O" 

940 LOCATE 60,17: PRINT "Mangl es:" 

950 LOCATE 57,19: PRINT "Slagskibe 
: 1 " 

960 LOCATE 57,20: PRINT "Krydsere 
: 2 " 

970 LOCATE 57,21: PRINT "Torpedo-jagere 
: 3" 

980 LOCATE 57,22: PRINT "Ubaade 
: 5" 

990 WHILE plet<21 

1000 WHILE plads =0 OR ramt<x,y><>0 
1010 WHILE LEN(skud$)<2 OR LEN(skud*)>3 
1020 LOCATE 60,8: plads=l 
1030 PRINT "Koordinater:"|:PRINT SPC<7>: 
LOCATE 73,8: INPUT skud$ 

1040 WEND 

1050 x=ASC(MID$(skud$,1,1)> —64 

1060 IF x<l OR x >12 THEN plads=0: x=0 

1070 y=VAL(MID$(skud*,2,2)) 

1080 IF y<1 OR y>12 THEN plads=0: y=0 
1090 skud*="" 

1100 WEND 

1110 tal»tal+ 1 : ramt<x,y>=l 

1120 LOCATE 60,4: PRINT USING "Antal sku 

d: ;tal 

1130 LOCATE x»4,y*2: PRINT CHR*<203) 
1140 IF skib(x,y)<>0 THEN GOSUB 1350 ELS 
E GOSUB 1190 


1150 

WEND 




1160 

LOCATE 

1,24 



1170 

LOCATE 

1,24 



1180 

END 




1190 

i=INT(RND*ll) 


1200 

LOCATE 

63,14 


1210 

IF 

i =0 

THEN 

PRINT 

"Skumsprøjt" 

1220 

IF 

i =1 

THEN 

PRINT 

“Forbier" 

1230 

IF 

i =2 

THEN 

PRINT 

“I vandet" 

1240 

IF 

i =3 

THEN 

PRINT 

"Prøv igen" 

1250 

IF 

i =4 

THEN 

PRINT 

"Ved siden af" 

1260 

IF 

i =5 

THEN 

PRINT 

"En gang til" 

1270 

IF 

i =6 

THEN 

PRINT 

"En smutter" 

1280 

IF 

i =7 

THEN 

PRINT 

"Sikke et plask" 

1290 

IF 

i =8 

THEN 

PRINT 

"En svipser" 

1300 

IF 

i =9 

THEN 

PRINT 

"Kun vand i sigte 


II 


1380 IF skib(x,y)=2 THEN PRINT " torpedo 
-jager": LOCATE x*4,y*2: PRINT "2": LOCA 
TE 75,21: t=t-l: PRINT USING "##";INT(<t 
+l)/2) 

1390 IF skib(x,y)=3 THEN PRINT " krydser 
": LOCATE x*4,y*2: PRINT "3": LOCATE 75, 
20: k-k — 1: PRINT USING "##"5 INT <(k+2)/3) 
1400 IF skib <x,y)=4 THEN PRINT " slagski 
b": LOCATE x*4,y*2: PRINT "4“: LOCATE 75 
,19: f-f-1: PRINT USING "##"j INT((f+3>/ 
4) 

1410 FOR a=l TO 600: NEXT a 
1420 LOCATE 63,14: PRINT SPC(17) 

1430 RETURN 


Time Organizer 

Efter et stigende ønske om seriøsitet fra de Joyce-interesse- 
rede læsere, bringer vi her et nyttigt lille program, der nok 
skulle kunne hjælpe med at holde styr på hverdagen. Efter 
et vist management-firmas succes med læderindbundne 
universal-kalendere/notesbøger mente vi, tiden var inde for 
at udvikle en elektronisk »Manager«. 

1 programmet har man mulighed for at indtaste »aftaler« i tre 
kategorier: En aftale kan enten klassificeres som en »årlig be¬ 
givenhed«, en »månedlig tilbagevendende begivenhed« el¬ 
ler som en normal aftale. 

Den første mulighed kan eventuelt bruges til fødselsdage, ju¬ 
bilæer samt andre vigtige årsdage. Man indtaster blot da¬ 
toen samt året for mærkedagen (eksempelvis det år en per¬ 
son blev født), og programmet husker så denne dato hvert år 
og udregner endda selv, om der er tale om et 1-års eller 27- 
års (eller...) jubilæum. 

Den anden mulighed kan bruges ved begivenheder med en 
fast dato hver måned (lønningsdag etc.). Her indtaster man 
blot datoen og navnet på »aftalen«, og programmet skriver 
aftalen ud hver eneste måned. 

Den sidste valgmulighed bruges til normale »engangs«-afta- 
ler (eksempelvis møder, forretningsmiddage o.lign.). 

Under punktet »ajourføring* i programmet kan man slette 
alle de normale aftaler, hvis dato er overskredet og som der¬ 
med ikke længere er aktuelle. Til sidst kan man få skrevet en 
kalender ud for en hvilken som helst periode både på skærm 
og på printer. 

Programmet er meget simpelt at bruge og kan betjenes med 
cursorpilene og ENTER et langt stykke hen ad vejen. Under 
indtastningen skal man huske, at det ikke er ligegyldigt, hvor 
man bruger små og store bogstaver og specielt ikke i sam¬ 
menhæng med ESCA/CHRA(27) (kontrolkoder). Når pro¬ 
grammet er færdigt og gemt på en diskette, skal man lade 
disketten sidde i, når man starter programmet. Alle datoer 
bliver så gemt i en fil på disketten, hvilket vil sige, at man 
også skal ahve den samme diskette i, når man vil forlade pro¬ 
grammet. 

Maskiner: PCW 8256/8512 


1310 IF i=10 THEN PRINT "Om igen" 

1320 FOR a=l TO 600: NEXT a 
1330 LOCATE 63,14: PRINT SPC(17) 

1340 RETURN 
1350 piet=plet + 1 
1360 LOCATE 63,14 

1370 IF skib(x,y)=1 THEN PRINT " ubaad": 
LOCATE x*4,y*2: PRINT "1":L0CATE 75,22 
: u=u-l 1 PRINT USING "##"|U 






I OPTION RUN 

10 REM ************* 

20 REM * * 

30 REM * TIME * 

40 REM * * 

50 REM * Organizer * 

60 REM * * 

70 REM ************* 

71 REM 

72 REX <C> 1937 by Skærmtrold 

73 REM 

74 DIM t* C250), y%(250> , m%<250> , d%<250> , s 
<250 > 

75 GOSUE 11000:REM *** Hent Data *#* 

80 escS=CHR4 <27>:cls*=escS+"E"+esc*+"H" 

90 FRINT esc*"y"esc*CHR* <48 >esc*"f" 

91 DATA-,Januar,Februar,Marts,Apr 11,M 

aj,Juni,Juli,August,September,Oktober, No 
vember,December:DIM man*<12>: RESTORE 91: 
FOR z=0 TO 12:READ mon*<z>: WHILE LEN«mon 
*<z>><9:mon*<z>=mon*<z>+" ":VEND:NEXT z 
100 REM *** Start *** 

110 PRINT cis*:GOSUE 1000:PRINT esc*"Y"C 
HR* <39)CHR$ <66 >" — ORGANIZER 
:REM **« Logo *** 

120 PRINT esc$" A" esc$" r"SPAGES <90.> esc*" u 

II . 

» 

130 PRINT esc$"X"CHR* <41)CHR* <32>CHR* <67 
>CHR* <122>; cis* 

135 yl=1937: ml = 6:dl = l 

140 GOSUE 2000:REM *** Dato **« 

150 yl = year:ml=month: dl=day 
20«) REM *** Hovedmenu *** 

210 PRINT cis* 

220 DATA Rette dato,Indtaste aftale,Rett 
e aftale,Slette aftale,Ajourføring,Udskr 
ive kalender,Afslutte:RESTORE 220:FOR z= 
1 TO 7:READ m*<z):NEXT z 

230 FOR z=l TO 7:PRINT esc*"Y"CHR* <33+z) 
CHRS <70 > m* Cz>:NEXT z 
240 v=l 

250 PRINT esc$"Y"CHRS <33 + v)CHRS <70)escS" 
p"m$ <v)esc*"q" 

260 a* =INKEY*:IF a*=CHRS<13> THEN 400 
270 IF a*OCHR* <30> AND a*OCHR*<31> THE 
N 250 

280 PRINT escS"Y"CHRS <33+v>CHRS<70)m* < v) 
290 v=v-<a*=CHRS <30)) + <a*=CHR*<31> > 

300 IF v=0 THEN v=7 ELSE IF v=8 THEN v=i 
310 GOTO 250 

400 ON v GOTO 3000,4000,5000,6000,7000,S 
000,9000 

500 REM *** Finde aftale *** 

510 nr=1 

511 s*<l>="Aftale : s* <2 >=" Månedi ig" : s* 
<3> ="Ar1ig 

520 PRINT esc*" p" t* (nr ) esc*" q "esc*"p"US 
ING " ##. ";d% <nr); :PRINT LEFT*<LOVER*<ra 
on* <m% <nr))),3);USING " #### ";y%(nr);:P 
RINT esc*"q "escl'-p "s* <s%(nr) )" B esc$"q 
"esc*"A" 


























































































530 aS =INKEYS:IF aS=CHR$C13) THEN RETURN 
540 IF aS=CHRS <31) AND nr>l THEN nr=nr-l 
550 IF aS=CHR$(30) AND s8(nr+l)<>0 THEN 
nr=nr+l 
560 GOTO 520 

1000 DATA 12,2,7,1,4,5,20,3,8,5,1,2,14,3 
, 19,5,4, 1,8,2,13,2,23,2,16,3,3,4,8,1,15, 
5,21,1,22,5,7,5,12,4,21,3,3,2,16,1,11,5, 
20,2,3,3,23,5,16,4,5,2,3,5,21,5,5,1,15,2 
1010 DATA 8,3,23,1,12,1,16,5,2,1,19,1,13 
,5,20,4,12,3,9,5,20,1,3,1, 16,2,17,5, 11,1 
,8,4,2,5,12,5,22,1,9,1,23,4,1,1,20,5,17, 
1 

1020 RESTORE 1000 
1030 FOR z— 1 TO 57 
1040 READ x,y 

1050 PRINT CHRS <27>"Y H CHRS(32+y>CHRS <65+ 
x)CHRS (27 >" p " CHRS <"27 >" q" 

1060 NEXT z' 

1070 RETURN 

1500 REH *** Tekst »** 

1510 c=l 

1520 PRINT escS"p"LEFTS ( aS,c-1)escS"q"MI 
DS(at,c,1)escS"p"MIDS(aS,c+1)escS"q"escS 
"A" 

1530 bS=INKEYS:IF bS=CHRS<13) THEN RETUR 
N 

1540 IF b$>=" " AND bS<="å" THEN aS=LEFT 
S<aS,c-l)+bS+MIDS<aS,c,LEN(aS)-c):c=c— (c 
<LEN(aS)):GOTO 1520 

1550 IF bS=CHRS <127) THEN c=c+<c>1):aS=L 
EFTS(aS,c-l> +MIDS CaS,c+1)+" ":GOTO 1520 

1551 IF bS=CHRS <1) AND c>l THEN c=c-l:GO 
TO 1520 

1552 IF bS=CHRS (6) AND c<LEN(a$) THEN c= 
c+1:GOTO 1520 

1560 IF b$=CHRS<.7> THEN aS=LEFTS (aS, c-1) 

+ MIDS <aS,c+1> +" ":GOTO 1520 

1570 GOTO 1530 

2000 PRINT clsS 

2005 year=yl:month=ml:day=dl 

2010 PRINT "Vælg år:" 

2020 PRINT 

2030 PRINT escS"p";USING " *### " ; year; : 
PRINT escS"q"escS"A" 

2040 aS=INKEYS:IF aS=CHRS<13> THEN 2100 
2050 IF a$=CHRS <31) THEN year = year + l:GOT 
O 2030 

2060 IF aS=CHR$ <30) THEN year=year-l:GOT 
O 2030 

2070 GOTO 2040 

2100 PRINT clsS:PRINT "Vælg måned:":PRIN 
T 

2110 PRINT escS"p ";mons<raonth);" "escS" 
q"escS"A" 

2120 aS=INKEYS:IF aS=CHRS<13> THEN 2200 
2130 IF aS = CHRS <31} AND month<12 THEN mo 
nth=month+1:GOTO 2110 

2140 IF aS=CHRSC30) AND month>l THEN mon 
th=month-l:GOTO 2110 
2150 GOTO 2120 

















































































2200 PRINT clsi:PRINT "Vælg dato:PRINT 
2210 FRINT esci"p USING "** " \ day; : PRI 
NT eacS"q"esc$"A" 

2220 ai-INKEYi:IF a$=CHR$(13) THEN RETUR 
N 

2230 IF ai=CHR$< 30 > AND day>l THEN day=d 
ay-1:GOTO 2210 

2240 IF a£=CHR£(31) AND «.<month=l OR mon 
th=3 OR month=5 OR morith=7 OR month=3 OR 
month=10 OR inonth=12> AN£> day<31 OR day 
30 AND month<>2 OR day<28 OR day<29 AND 
<year/4 =I NT(year/4>) AND (year/100(>INT 
<year/100);> THEN day=day+l:GOTO 2210 
2250 GOTO 2220 
3000 REM *** Rette Dato *** 

30-0 GOTO 140 


4000 REM *** Indtalte aftale ■*•** 

4010 PRINT clsi 

4020 FOR z=l TO 250:IF s%<z>=0 THEN 4060 
4030 NEXT s:PRINT "Ikke plads til flere 
aftaler; tryk på en tast.,." 

4040 WHILE INKEY$="":WEND 
4050 GOTO 200 
4060 REM * OK * 

4065 nr=z 

4070 a£=SPACE£ <50):PRINT "Indtast tekst: 


4080 GOSUB 1500 
4035 t.S<nr>=ai 


4086 year=yl:month=ml:day=dl 

4090 FRINT clsi:v=l 

4100 PRINT "Vælg kategori:":PRINT 

4110 mi (1)="Almindelig aftale"+SPACES(2) 

:mi(2)="Månedlig begivenhed" : mi(3)="Årli 
g mærkedag"+SPACE&(5) 

4130 PRINT esci"p "ra$(v>" "esci"q"escS"A 

M 

414 0 a$= INKEYi : IF aS=CHR*a3) THEN s%<nr 
> =v:GOTO 4200 

4150 v=v-(a£=CHK£<31>>+(a$=CHR£(30)) 

4160 IF v=0 THEN v=3 ELSE IF v=4 THEN v= 
1 

4170 GOTO 4130 

4200 REM *** Dato *** 

4205 PRINT clsi 

4210 IF v=l OR v=3 THEN PRINT "Indtast d 
ato:":PRINT:GOSUB 2010:y%<nr)=year:m%(nr 
)=month: d%(nr)=day: GOTO 200 
4220 PRINT "Vælg dato:":PRINT 
4230 v—1 

4240 PRINT esci"p "USING "## ";v;:PRINT 
esci"q"esc$"A" 

4250 a$=INKEY£:IF ai=CHRi(13) THEN d%(nr 


)=v:GOTO 200 

4260 v=v+(ai=CHRi(30))- (ai=CHR£ (31)) 

4270 IF v=32 THEN v=l ELSE IF v=0 THEN v 
= 31 



4280 GOTO 4240 


5000 REM *** Rette aftale *** 


5005 IF s%(1)=0 THEN 200 
5010 PRINT clsi 



















































































5015 PRINT "Vælg aftalePRINT 
5020 GOSUB 500 

5030 PRINT clsS:PRINT "Ret tekstPR I NT 
5040 aS = t$(nr):GOSUB 1500 
5050 tS<nr)=a$ 

5055 year=y%(nr> : month=m%<nr>: day=d%<nr> 
5060 v=s% (nr;:PRINT clsS:GOTO 4100 
6000 REM *** Slette aftale *** 

6005 IF S%<1)=0 THEN 200 

6010 PRINT clsS:PRINT "Vælg aftale:":PRI 
NT 

6020 GOSUB 500 

6030 PRINT:PRINT:vS="Ja" 

6040 PRINT "Slet ovenstående aftale-"esc 
S"p"vSesc$"q "escS"A" 

6050 aS=INKEYS:IF aS=CHR$C13) THEN 6100 
6060 IF aSOCHRJ <30> AND aSOCHRS <31> TH 
EN 6050 

6070 IF vS=“Ja" THEN v$ = "Nej" ELSE vS="J 
a" 

6080 GOTO 6040 

6100 IF v$="Nej" THEN 200 

6110 z=nr 

6120 IF z=250 OR s%(z)=0 THEN 6200 
6130 t$(z)=tS(z+l>:s%<z>=s%<z+l>: y %< z > = y 
%(z+l>: ra% <z ) =m%(z + 1):d%<z>=d%fz+1) 

6140 z-z+li GOTO 6120 
6200 GOTO 200 

7000 REM *** Ajourføring *«* 

7010 z=l 

7020 IF s%<z)=0 THEN 200 

7030 IF s*(zX>l THEN 7500 

7040 IF y%<z)>y1 THEN 7500 

7050 IF y%<z)=yl AND m%Cz)>ml THEN 7500 

7060 IF y%<z) =y 1 AND m%<z>=ml AND d%<z.> 

=dl THEN 7500 

7070 n=z 

7030 IF s%Cn)=0 OR n=250 THEN z=z + <z>lJ: 
GOTO 7500 

7090 tS(n)=tS Cn+1):s%(n)=s%<n+l):y%(n)=y 
% Cn+1): m% <n) -m% <n+l):d%(n)=d%(n+l) 

7100 n=n+l:GOTO 7080 

7500 IF z<250 THEN z=z+l:GOTO 7020 

8000 REM *»* Kalender **• 

8010 PRINT clsS:PRINT "Vælg dato for kal 

enderens start:":PRINT 

8020 GOSUB 2005 

8030 y2 = year : rn2 = month: d2=day 

8040 PRINT clsS:PRINT "Vælg dato for kal 

enderens afslutning:PRINT 

8050 GOSUB 2010 

8060 y3=year:m3-month:d3=day 

8070 PRINT clsS:vS="Nej" 

8080 PRINT "Udskrift på printerescS"p" 
vSescS"q "esc$"A" 

8090 aS=INKEYS:IF aS=CHRS<13> THEN 8200 
8100 IF aSOCHRS <31 > AND aSOCHRS (.30) TH 
EN 8090 

8110 IF v$="Nej" THEN vS="Ja" ELSE vS="N 
ej" 

8120 GOTO 8080 

















































































8200 REM * Start søgning * 

8210 PRINT clsS:PRINT "Kalender for peri 
oden ";USING "tttt. ";d2;:PRINT LOVERS (LEF 
TS(monS(m2>,3));USING " tttttttt"y2 
8220 PRINT " - USING "tttt. ";d3;:PRINT 
LOVERS<LEFTS(monSCm3), 3)); USING " tttttttt"-, 
y3 

8225 PRINT 

8230 IF vS="Nej" THEN 8300 
8240 LPRINT "Kalender for perioden " ; USI 
NG "tttt. ";d2;:LPRINT LOVERSCLEFTS(monS(m 
2),3));USING " tt tt tt tt"y2 \ 

8250 LPRINT " - USING "tt#. ";d3;:LPRIN 
T LOVERS (LEFTS (monS <m3) , 3) ); USING " tttttttt 
" i y3 

8260 LPRINT 

8300 PRINT escS"p" ; USING " tt tt" ; d2; : PRINT 
"/";USING m2;:PRINT escS"q:"; 

8310 IF vS=" Ja" THEN LPRINT USING " tttt" ; d 
2; .-LPRINT "/"; USING "tttt"-, w2 LPRINT " : " ; 
8320 z=l:q=0 

8330 IF s% (z)=0 THEN 8400 

8335 IF INKEYSO"" THEN VHILE INKEYS = "" : 

VEND 

8340 IF s%(z)=l AND y%(z)=y2 AND m%(z)=m 
2 AND d%(z>=d2 THEN q=l:PRINT tS(z>:PRIN 
T " "j:IF vS="Ja" THEN LPRINT tSCz> 

:LPRINT " 

8350 IF s%<z)=2 AND d%(z)=d2 THEN q=l:PR 
INT tS(z):PRINT " "j:IF vS="Ja" THE 

N LPRINT tS (z):LPRINT " "; 

8360 IF s% (z)=3 AND m%(z)=ra2 AND d%(z)=d 
2 THEN q=l: PRINT tS<z>" - "; USING " tttttttt 
år";y2-y%(z):FRINT " ";:IF vS="Ja" 

THEN LPRINT tS(z);" - " ; USING "tttttttt år"; 
y2-y%Cz):LPRINT " 

8370 z=z + l: IF z<251 THEN 8330 
8400 d2=d2+l 

8405 IF q=0 THEN PRINT ELSE PRINT CHRS(1 
3>; 

3406 IF vS="Ja" THEN IF q=0 THEN LPRINT 
ELSE LPRINT CHRS(13); 

8410 IF d2>28 AND m2=2 AND <y2/4<>INT(y2 
/4) OR y2/100=INT(y2/100)> THEN d2=l:m2= 
xn2 +1 

8420 IF d2>29 AND m2=2 THEN d2=l:m2=m2+l 
8430 IF d2>30 AND (m2=4 OR m2=6 OR ra2=9 
OR m2=l1) THEN d2=l:ra2=m2+l 
8440 IF d2>31 THEN d2=l:m2=m2+l:IF m2^13 
THEN m2=l:y2=y2+l 
8450 IF y2<y3 THEN 8300 
8460 IF m2<m3 THEN 8300 
8470 IF d2< d3 THEN 8300 
8480 PRINT:PRINT "Tryk på en tast..." 
8490 VHILE INKEYS="":VEND 
3500 GOTO 200 
9000 REM *** Afslut *** 

9010 PRINT escS"e"escS"y"clsSescS"1"; 
9015 GOSUB 12000 
9020 SYSTEM 

11000 IF FINDS("TIME.DAT")="" 



THEN GOSUB 











































































12000:RETURN 


11010 
11020 
11030 
1104 0 
11050 
11060 
11070 
11030 



12010 
12020 
12030 
1204 0 
12050 
12060 
12070 
12 030 
12090 


OPEN M I",i,"TIME.DAT" 
FOR z-1 TO 250 
LINE INPUT #l,t®(z> 
INPUT #1,y%< z > 

INPUT # i , in% < z.) 

INPUT #1, cl % < z ) 

INPUT #l,s%(z> 

NEXT 2 
GLOSE 1 
RETURN 

OPEN "O",1,"TIME.DAT" 
FOR z=l TO 250 
PRINT <n,z$.<z) 

PRINT #1,y%(z > 

PRI NT #1 ,(z > 

PRINT # 1,d% * 2 ) 

PRINT #l,s%Cz> 

NEXT z 
GLOSE 1 
RETURN 















































































INTERNATIONAL KLUBOVERSIGT 


PORT MACQUARIE AMSTRAD 

USERS GROUP. The Secretary, 
CRAIG TOLLIS, P O Box 584. Port 
Macquire 2444, Australia. 



AUSAMSNF.T. DONALD LEITH. 
534 Albion Street, West Brunswick. 
Victona 3055. Australia. 

AMSTRAD CANTERBURY. MS 

CHRISTINE LONFOOT. PO Box 
23079 Templeton. Christchurch, 
New Zealand. 

SOUTHSIDE AMSTRAD USERS 
CLUB, MS DEBBIE HOFFMAN PO 
Box 324. Bosnells 6110. Western 
Australia. 

SINGAPORE AMSTRAD USERS 
CLUB, EDDIE GOH CHENG. B1K 
216 Jurong. East Street. 21 04-523. 
SINGAPORE 2260 

COMMUNITY COMPUTING, 

Church of Ascension. Hulme Walk. 
Hulme. Manchester M15 5FQ. 

ORPINGTON COMPUTER 
CLUB. Gea Hall. Woodhurst Ave¬ 
nue. Petts Wood. Orpington. Kent. 
Conlact Sue Andrews on 01 652 
2212 

AMSWEST AMSTRAD USER 
GROUP. MRS P T ARDRON. 6 We- 
ston Street, Carlisle 6101, West Au¬ 
stralia 

LE CLUB INFOMATIQUE. CHRI- 
STOPHE WAROUX, BRUYSLEN 
LE CIB, 1 Rue Laterale 62470. Ca- 
lonne Ricourart. Siege Social Bruay- 
en-Artois. France. 

PATONS COMPUTER CLUB, P 

PATON, 176 Todmorden Road. 
Bumley. Lancashire BB11 3EU. 

AMSTRAD USER SOFTWARE 
DATABASE. SIMON PORRI7T. 13 
Woodbine Avenue. Gosforth, New- 
castle Upon Tyne NE3 4EU. 

ELLESMERE PORT AMSTRAD 
USERS CLUB. MR M J DYOS, El 
lesmere Port. South Wirral. 

WACCI. JEFF WALKER, 75 Green 
fields Drive. Hillington. Uxbndge, 
Middlesex UB8 3QN. 

BMC. 1AN BELL. 10 Morton Court. 
Blackwood, Scotland ML11 9YH. 

ADVANTAGE COMPUTER 
USER GROUP, MR J GREEN. 33 
Malyns Close, Chinnor, Oxfordshire 
OX9 4EW 

ASSOCIATION OF COMPUTER 
CLUBS. MR J S BONE. Club Spot 
810 c/o Claremont Place, Gates- 
head, Tyne and Wear. 

PCW USERS GROUP. MR R 

MOBBERLEY, 37 Clifford Bridge 
Road, Blnley. Coventry CV3 2DW 

WEST MIDLANDS AMSTRAD 
USER GROUP. MR STUART WIL 
LIAMS. 26 Matlock Road. Lower 
Farm Estate, Bloxwich, Walsall, West 
Midlands WS33QD. 

BURNLEY CO-OP COMPUTER 
USER MR DAVE CHAMBERS. 
62 Moorland Road. Rosehill, 
Lancashire BB11 2NX. 


THE NATIONAL INDEPENDENT 
AMSTRAD USER CLUB. MR 

DEREK VERNON. 1 The Mtddle 
Way, Harrow. Middlesex HA3 7E. 

TAFFS WELL CO-OP COMPU¬ 
TER CLUB. MR A TOGHILL. 45 
Moy Road. Taffs Well. South Gla¬ 
morgan. 

LONDON AMSTRAD USER 
CLUB. Harrow Computer Group. 
Harrow Arts Centre. 356 High Road. 
Harrow Weald 

CROYDON MICROCOMPUTER 
CLUB. MR P CH1CK. Central Refe¬ 
rence Library. Catherine Street. 
Croydon. 

SUTTON LIBRARY COMPUTER 
CLUB. MR D WILKINSON. Central 
Library. St. Nicholas Way. Sutton. 

NORTH KENT AMATEUR COM¬ 
PUTER CLUB. MR D PETTET. 
Charles Darwin School. Jail Lane. 
Biggln Hiil. 

RICHMOND COMPUTER 

CLUB. MR B FORSTER, Richmond 
Adult College, Parkshot House, 
Richmond. 

THANET CO-OP COMPUTER 
CLUB. MR M TEW. 21 Wellis Gar¬ 
dens, Westbrook. Margate. Kent 
CT95RG. 

HUDDERSFIELD CO-OP COM¬ 
PUTER CLUB. MR D POWELL. 35 
Foxroyed Drive, Mirfield. Hudders 
field. 


COTAC CLUB. The Secretary. MR 
CONRAD HART. 48 Dover Road. 
Room 14, Wanstead. London El 2 
5EA. 

AMSTRAD GROUPS FEDERA¬ 
TION. The Secretary. MR P CLAR- 
KE. 4 Sutton Road, Gorton. Man¬ 
chester M18 7PN. Tel. 061-256- 
2679. 

ROCKINGHAM-KWINANA AM¬ 
STRAD COMPUTER CLUB. The 

Secretary, MR K SAW, 29 Millgrove 
Avenue, Cooloongup, Western Au¬ 
stralia WA 6168 

AMSTRAD COMPUTER CLUB 

INC (SA). The President, MR C 
SOWDEN, P O Box 210. Parkholme 
5043, South Australia 

VICTORIA WESTERN COMPU¬ 
TER CLUB. Die Secretary. P O Box 
42. Braybrook 3019. Western Au¬ 
stralia. 

EASTERN AMSTRAD USER 
GROUP. The Secretary, BARRY 
FREDRICKSON, P O Box 279. Hei- 
delberg Vie 3084. Australia. 

EASTERN AMSTRAD USER 
GROUP. Editor. TODD DIXON, C/ 
O PO Box 6559. Wellesley Street. 
Auckland 1, New Zealand 

WAGGA WAGGA AMSTRAD 
USER GROUP. The Secretary, MR 
J D TIPPER, 36 Wills Place. Kapo- 
oka. NSW 2661. Australia 


SCHNEIDER JOYCE-ANWEN- 
DERKREIS. Munster/ Coesfield 
sucht Mitglieder Contact WOLF 
GANG KURCH, 4405 Nottuln Tel 0 
25 02/1540, Germany. 

CPC USER CLUB Grundung, 
Contact: SVEN MARTIN Obstre 
ubenstrasse 3 3590. Bad Wildun- 
gen, Germany. 

ROMSOFT CPC CLUB. Ml 

CHAEL GEORGE. Waldstrasse 13 
6630 Saartouis 5 Tel 0 6831 6701, 
Germany. 


AMSTRAD CLUB SCHWEIZ. 

Kurt In-Albon. Muhlackem CH- 
3931, Eggerberg, Switzerland 

FREAK-SOFT-CLUB CPC 464. 

RALF HOPPERDIETZL Theodor- 
Storm-Strasse 22 8670 Hof (Saale). 
Germany. 

FREAK-SOFT-CLUB CPC 664. 
CPC 6128. MICHAEL ECKERT 
Zobelsreuther Strasse 30 8670 
(Saale), Germany. 

CLUBRUNDUNG Im Raum Ha- 
nau-Gelnhausen, RICHARD LUP¬ 
PERT Gartenstrasse 18, 6456 Lan¬ 
genselbold. Germany. 

SCHNEIDER-JOYCE USER 
CLUB. RHEINMA1N A-Reichwetn- 
weg 6 6097. Trebur 3. Germany 

CPC CLUB BORKEN. KARSTEN 
KAMMLER, Heinrich-Hertz-Strasse 

4 4280 Borken-Gemen. Germany. 

6128-UND 664-BESITZER. MI 

CHAEL DECKER, Im Richetnberg 
36 5166 Kreuzau. Germany. 

CPC USER CLUB LAATZEN. 

Contact: ROLF MENN. Am Kamp 
293014 Laatzen 1. Germany. 

5 C C N-H-W-N-H-W SCHNE¬ 
IDER COMPUTER CLUB. OLI 

VER THIELE. Am Kirchweg 49, 
5908 Neunkirchen 5. Germany 

S C C H SCHNEIDER COMPU 
TER CLUB HAMBURG. ALEX¬ 
ANDER SCHARF Heimfelder 
Strasse 60.2100 Hamburg 90, Ger¬ 
many. 

CPC-USER-CLUB SCHWEIZ. 

KLAUS-DIETER PREISS. Im Hof 20 
CH-8637. Laupen, Switzerland. 

JOYCE COMPUTER CLUB. Ml 

COLAI WALTER Postfach 1269 
6242 Kronberg/Ts. Germany 

INTER-MED1A-CLUB SCHWEIZ 
IMC. SCHNEIDER CPC-CLUB. 

URS THONY PASCH CH-7214. 
Grusch. Switzerland. 

CPC-USER-CLUB-VOG EL¬ 
SANG. PETER WIESCHER, Kaser- 
nenstrasse 9. D-5140 Erkelenz 4. 
Germany, 

CPC 464 CLUB GRUNDUNG. 

Contact HEINZ ELBERS, Wurtlem 
berger Strasse 1 4460 Nordhorn 
Germany. 
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USER CLUB IN DER SCHWEIZ! 
464 GRUNDUNG! CHRISTIAN 
STREBEL. Ruslerstrasse 3. CH- 
5452 O'rohrdort. Switzerland. 

JOYCE USER CLUB CLUB- 
GRUNDUNG GEPLANT. HEINZ 
HAUPT. 4300 Essen 1 Fridtjof-Nan- 
sen-Strasse 1. Germany. 

SCHNEIDER COMPUTER 
CLUB. EVABT Ostwesfalen/Lippe 
Postlach 1101 4972 lohne 1, Ger¬ 
many 

AMSTRAD SCHNEIDER USER 
CLUB, Aachen ASUCA Milglieder 
auf Dipl-lng R Cloots Zelbstrasse 7 
5132 Ubach-Palenberg. Germany. 

WESTERN SUBURBS AM¬ 
STRAD. TTie Secrelary: MR J JA¬ 
MES 36 Penong Street, Westlake. 
Brisbane 4074. Australia 

WEIPA AMSTRAD USERS 
GROUP. The Secretaiy. MR GARY 
CHIPPENDLALE, 15 Noola Court. 
Weipa 4874. Australia. 

CPC NUTZER CLUB. Contact. 
FRITZ-PETER. Nonnenbruch Split- 
tenbrede 11. 4800 Bielefeld 1 Tel: 
0521887970. 

NORDHORN USER CLUB. Con 

tact. FRED WEBER, LaarstraØe 23 
4460 Nordhorn. Tel: 0592175478, 

CPC CLUB MAGIC KEY. Contact, 
MICHAEL HOLLMAN. Stamburger 
StraBe 46 2800. Bremen 1 

BERLINER USER CLUB. Con¬ 
tact, WOLFGANG WINDORPSKI, 
GritznerstraSe 38, 1000, Berlin 41. 
Tel: 0308227750. 

CPC CLUB GUNDUNG. Contact, 
KRIES BORKEN, Dominique Weib 
Sudring 6. 4282 Veolen-Ramsdorf 

SCHNEIDER USER CLUB HEIL- 
BRONN. Contact. MIRKA PECO 
RONI. DeutschherrenstraBe 6,7107 
Bad Friedrichshall: Tel: 071 36 
6701 

JOYCE USER CLUB NURN- 
BERG. ANSGAR ZERFAB, Am- 
manstraSe 26. 8500 Numberg 40. 
Tel; 09114367 78, 

WEST MIDLANDS AMSTRAD 
USER GROUP. 26 Matlock Road, 
Lower Farm Eslate, Bloxwich, Wal- 
sall WS3 3QD, West Midlands Con¬ 
tact STUART WILLIAMS on 0922 
406411. 

AUSD (AMSTRAD USER SOFT¬ 
WARE DATABASE). P O Box 11. 

Gosforth, Newcastle Upon Tyne 
(NE31RP 

AMSTRAD COMPUTING 

NEWSLETTER CHRISTOPHER 
BRYANT. 11 Havenview Road. Se- 
aton. Sevon EX 12 2PF Telephone 
0297 20456 

AMSTRAD NORTH WEST 
USER'S CLUB. 4 Sutton Road, 
Gorton, Manchester M18 7PN. Te¬ 
lephone 092575 5262 

ADVANTAGE USER GROUP, 33 

Malyn's Close, Chinnor. Oxlordshire 
OX9 4EW Contact JEFFREY GRE 
EN 


NATIONAL INDEPENDENT 
USER CLUB. Wealdstone, Harrow. 
Middlesex. 

SOUTHSIDE AMSTRAD USERS 
CLUB. P O Box 324. Gosnells 
6110, Western Australia. Contact 
DEBBIE HOFMAN Telephone 09- 
4598702 

SOLENT AMSTRAD CLUB. c/o 1 

Dimond Close. Bitterne Park. Sou- 
thampton S02 4LF. Telephone Sou- 
thampton 558075 atter 5pm. Con¬ 
tact BILL KENT. 

BRIGHTON HOVE AND Dl- 
STRICT COMPUTER CLUB. 19 

Beach Green, Shoreham-by-Sea. 
Sussex BN4 5YG. Telephone 0273 
463111. Contact GEORGE SEARS 

CAMELCLUB Wellpark. Willeys 
Avenue, Exeter. Telephone 0392 
21189. Contact JOHN KENEALLY 

TARANAKI AMSTRAD USER'S 
CLUB. Contact: HUGH WILSON. 
C/O PowerCorp. 71 Brougham 
Street, P O Box 370. New Plymouth, 
Ph 88-526 Wfork. Ph 67-612 A/H 

WHANGAREI AND MID NORT- 
HLAND USER'S CLUB. Contact 
MIKE RICKETT. Utopia Road. RD1 
Paparoa. Norhtland, Ph PAP37060. 

FRANKLIN AREA AMSTRAD 
USER'S CLUB. Contact Mr C A 
MACDONALD. 22 Totara Street. 
Wuuku Ph 58183 WKU. 

NEW PLYMOUTH AMSTRAD 
USER CLUB. Contact F G SOU- 
STER, 5 Taunton Place. New Ply¬ 
mouth. Ph 86501, 


TOKOROA AMSTRAD USER’S 
CLUB. Contact STAN WALTON - 
Chairman, C/O 30 Benella Street, 
Tokoroa. Ph 65-491. 

MS CHRISTINE LINFOOT. AM¬ 
STRAD CANTERBURY. P O Box 

23,079. Templeton, Christchurch. 
New Zealand. 

AMSTRAD CHRISTCHURCH. 

Contact CHRISTINE LINFOOT, Ph 
897413, lan Orchard. Ph 524 064, P 
O Box24174. East Linwood, Chnst- 
church 

CHORLEY COMPUTER CLUB. 

MR J MOORE, 3 Stanley Road, Fa¬ 
rington, Preston, PR5 2RH. 

WAKEFIELD AMATEUR COM¬ 
PUTER CLUB. MR R QUARTON, 
44 Whitley Spnng Crescent, Ossett, 
Wfest Yorkshire. WF5 0RE 

HUNTINGDONSHIRE COMPU¬ 
TER CLUB. MR J CHILDS, 57 Ma- 
nor Gardens, Buckden, Hunting¬ 
don. Cambs. PE18 9TW 

CONGLETON AND DISTRICT 
COMPUTER CLUB. MR G A HAR- 
RATT, 19 Walgrave Close, Congle- 
ton, Cheshire, CW12 4TS. 

MICROBEACON SUPPORTERS 
GROUP. MR J PALMER. M.crobe 
acon Project, 29 Guthrie Street, Ed- 
inburgh, Scotland, 

PRESTON COMPUTER CLUB 

(PACE). MR L HOWARTH. 41 St 
Walburge Avenue. Preston, Lånes. 
PR2 2QT 


WEST HERTS 80 USERS ASSO¬ 
CIATION. MR B I.ARKIN, 82 
Church Street, Lighton Buzzard, 
Beds, LU7 7BT. 

AMSTRAD CLUB SCHWEIZ. 

Kurt m-Albon, Muhlackem. CH- 
3931, Eggerberg. Switzerland 

COTAC CLUB. The Secretary. MR 
CONRAD HARI. 48 Dover Road. 
Room 14. Wanstead. London, E12 
5EA 

WESTERN SUBURBS AM¬ 
STRAD USERS GROUP. The Sec 

retary. MR J JAMES, 36 Penong 
Street, Westlake, Bnsbane 4074. 
Australia 

SYNTAX ERROR COMPUTER 
CLUB NORDHORN. (ALL COM¬ 
PUTERS). Contact: FRED WEBER, 
LaarstraBe 23, 4460 Nordhorn. Tel: 
059-21-13149. Germany 

CPC CLUBGRUNDUNG ANGE- 
STREBT, Contact: KREIS BOR¬ 
KEN. 

AMSTRAD NORTH WEST USER 
CLUB (ANWUC), 2. Stovell Ave¬ 
nue. Longsight, Manchester 12. 

BURNLEY CO-OP COMPUTER 
CLUB. MR DAVE CHAMBERS, 62 
Mooriand Road, Rosehlll, Lancashi- 
re, BB112NX. 

THANET CO-OP COMPUTER 
CLUB. MR M TEW, 21 Ufellis Gar¬ 
dens. Westbrook. Margate. Kent, 
CT95RG 

COMMUNITY COMPUTING. 

Church of Ascension, Hulme, Man¬ 
chester, M15 5FQ 

MRS P T ARDRON. AMSWEST 
AMSTRAD USER GROUP. 6 Vfc 

ston Street. Carlisle, 6101. West Au¬ 
stralia, 

M. CHRISTOPHE WAROUX, LE 
CLUB INFORMATIQUE BRUYS- 
LEN. 1 Rue Laterale. 62470 Ca- 
lonne Ricourart. Siege social, Bruay- 
en-Artois. France. 

SCHNE1DER-JOYCE-ANWEN- 
DERKREIS. Munster/Coesfield 
sucht Mitglieder, Wolfgang Kurch. 
4405 Nottuln, Germany 

CLUBRUNGDUNG. im Raum 
Hanau-Gelnhusen. Richard Lup¬ 
pert. Gartenstrasse 18, 6456 Lan¬ 
genselbold, Germany. 

SCHNEIDER-JOYCE USER 
CLUB. Rhem-Marn, A-Reichwein 
weg 6, 6097 Trebur 3, Germany. 

CPC CLUB BORKEN. KARSTEN 
KAMMLER. Heinrich-Hertz-strasse 
4.4280 Borken-Gemen. Germany. 

CPC USER CLUB GRUNDUNG. 
6128 AND 664 BESITZER. SVEN 
MARTIN, Ostreubenstrasse 3. 3590 
Bad Wildungen. Germany 

MICHAEL DECKER. Im Richeln- 
berg36. 5166 Kreuzau, Germany. 

SCHNEIDER COMPUTER 
CLUB N-H-W. OLIVER THIELE. 
Am Kirchweg 49.5908 Neunkirchen 
5. Germany 










Eventyr 

Det har altid været spæn¬ 
dende at gå på eventyr. For 
millioner af år siden gik vo¬ 
res forfædre på eventyr, om 
ikke andet så for at finde 
føde, og selv nutidens men¬ 
nesker går på eventyr. Men 
nu er mulighederne efter¬ 
hånden udtømte, der findes 
snart ikke en ærlig hule læn¬ 
gere, som ikke allerede har 
været besøgt af mennesker! 
De sidste muligheder for 
eventyr består i (dumdristi¬ 
ge) bjergbestigninger med 
de bare hænder, m.m. Even¬ 
tyr for "almindelige” kvin- 
der/mænd er efterhånden 
udelukket! (Men en skovtur 
,er nu alligevel altid spæn¬ 
dende, bare man har øjnene 
med sig!) 

AD&D 

Men der er faktisk stadig en 
mulighed tilbage for eventy¬ 
re* - nemlig eventyr i den 
uudtømmelige menneske¬ 
lige fantasi. Adventures, el¬ 
ler eventyrspil, som de ofte 
kaldes i Danmark, er rimelig 
nemme at lave. F.eks. kan 
der tegnes et kort med alle 
detaljer om skove, huse og 
veje sammen med oplysnin¬ 
ger om genstande som kan 
samles op, uhyrer, fælder, 


osv. Spillene skal så forsøg 
at finde rundt på kortet, 
uden at se det, ved at spørge 
personen, der styrer spillet, 
oftest kaldet Gamemaste¬ 
ren, om vej. 

For at gøre det mere 
spændende kan der f.eks. 
bygges en hel handling bag, 
f.eks. at du er nødlandet på 
en befolket planet uden en 
klink og du vil gerne tilbage 
til dine venner. De befinder 
sig på en anden planet langt 
væk og du bliver nødt til at 
købe et nyt rumskib for at 
komme tilbage! Hvad gør 
man så? Jaeh - man kunne 
f.eks. gå hen til den nærme¬ 
ste by og f.eks. forsøge at 
finde et arbejde eller tage 
hen til den lokale pub og 
håbe på at man får et tilbud 
(og en drink), eller... 

Mulighederne er utallige 
og hvis historien er god nok 
og kortet stort nok, kan 
eventyrspillet tage timer - ja 
endda dage eller uger og det 
kan blive utroligt spænden¬ 
de! Der findes endda bøger 
med opskrifter til historier og 
baggrunds-oplysninger om 
alle de ting, som spilleme 
kan komme ud for, så game¬ 
masteren kan svare realistisk 
på alle spørgsmål, selv på 
spørgsmål om kanoners ka¬ 
liber og rækkevidde! 

Der findes adventure- 


klubber rundt omkring i 
landet, som beskæftiger sig 
med avancerede eventyrspil 
også kaldet AD&D for Ad¬ 
vanced Dungeons and Dra¬ 
gons (Frit oversat til Avance¬ 
ret underjordiske fangehul¬ 
ler og drager(!)) Du opdager 
hurtigt hvis du er i nærheden 
af en, for spillerne vandrer 
rundt med lommen fuld af 
4-, 6-, 8-, 12- og 20-sidet ter¬ 
ninger, som de bruger til at 
afgøre om kamene gik godt 
eller skidt for deres figur eller 
karakter. Hver spiller har 
desuden et A4-ark fyldt med 
oplysninger om den karak¬ 
ter de styrer: f.eks. navn, al¬ 
der, deres rå-styrke, magiske 
evner, udstyr, osv. 

Computerbaserede 

D&D 

Det ville være en lettelse, 
specielt for Gamemasteren, 
hvis man kunne spille 
AD&D på computer, for det 
handler jo kun om tilfældig¬ 
heder - om terningen nu vi¬ 
ste 1 eller 19 og om man nu 
gik til højre eller venstre, 


' ' / 


men desværre er det ikke så 
simpelt. 

Man kan sagtens pro¬ 
grammere en computer til at 
generere (lave) en karakter 
med alder, magiske evner, 
føde-by/-planet, muskel¬ 
styrke, højde, osv., for pro¬ 
grammet skal bare vælge til¬ 
fældigt mellem nogle data 
og evt. sammenholde dem 
med andre (Det ville være 
lidt mærkeligt, hvis man var 
dværg og 2 m høj!) Men når 
spillet starter er det umuligt 
at forudsige alle de ting spil¬ 
leme kan finde på at gøre, så 
AD&D-programmer er des¬ 
væne udelukket på forhånd! 

Simple D&D-program- 
mer, derimod er ikke noget 
problem. De findes efter¬ 
hånden i alle mulige afskyg¬ 
ninger, nemlig i form af ad¬ 
ventures/eventyrspil og ind¬ 
til flere af dem bygger på en 
historie - hvem kender 
f.eks. ikke The Hobbit eller 
Hobbiten, som den hedder 
på dansk (nej, ikke Hobitten 
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- det er en computerklub i 
Århus og ikke et spil). 

D&D-historie 

Den præcise historie bag 
fremkomsten af den første 
computerbaserede adven¬ 
ture ligger gemt i det dunkle 
et eller andet sted, men 
Crowther og Woods har 
æren for at have skrevet den 
første computer-adventure, 
da de under deres uddan¬ 
nelse som programmører i 
1974, lavede "Colossal Ad¬ 
venture" på universitetets 
computer, efter en idé fra et 
nyt amerikansk fantasispil 
kaldet "Dungeons & Dra¬ 
gons". 

Programmet, der var skre¬ 
vet i Fortran (!), blev indtas¬ 
tet om natten, da de ikke 
kunne komme på andre tids¬ 
punkter og fyldte ca. 200 
Kb!!! "Colossal Adventure” 
findes efterhånden på alle 
maskiner, lige fra mikro’ertil 
main frames (kig efter ga- 
mes-biblioeket næste gang 
du logger ind på en UNIX- 
maskine, for der ligger den 
højst sandsynlig!) Selv Am- 
strad har en version skrevet 
af LEVEL 9 og selvom den 
kun fylder 31 Kb + 1 Kb 
loader er den, i hvert fald så 
vidt vi ved, fuldstændig lig 
good old "Colossal Adven¬ 
tures”! 

Udviklingen er gået hur¬ 
tigt siden "Colossal Adven¬ 
ture" som var en ren tekst- 
adventure. Nu findes der ad¬ 
ventures med billeder og 
endda musik. Dog er grafik¬ 
ken for det meste kun til for 
at gøre spillet mere atraktivt, 
som f.eks. i Hobbiten, men 
f.eks. i Mindshadow er det 
vigtigt at kigge sig om i bog¬ 
staveligste forstand. 

De fleste adventures har 
en ulempe for mange dan¬ 
skere - de er på engelsk. Det 
ser desværre ikke ud til at 
ændre sig. men der er i den 
senere tid kommet indtil 
flere engelske adventures, 
der er nemme at styre og der 
findes også nogle få danske 
adventures, men de udmær¬ 
ker sig desværre, indtil vide¬ 
re, ved at være ret dårlige ef¬ 
ter min mening! 

Adventures 

Nu skal denne artikel ikke 
være en oversigt over ad¬ 


ventures, men mere en be¬ 
skrivelse af ditto, selvom vi 
kigger på et antal forskellige 
(gode?) adventures. 

En god adventure kræver 
bl.a. en god historie, som 
kan være svær nok at lave, 
desuden skal spillet have en 
god "visuel appeal", enten i 
form af en fængslende tekst 
(og) eller grafik og lyd. Og - 
og det er nok det vigtigste af 
det hele - brugerinterfacet 
skal være i orden, dvs. at 
grafikken skal være af en ri¬ 
melig kvalitet, bogstaverne 
skal passe til tiden (det ser 
lidt dumt ud at spille rumkrig 
med gotiske bogstaver - 
med mindre det er plottet!) 
og når brugeren trykker på 
en tast skal tegnet ikke 
komme tre fire gange efter 
hinanden! Hvis det ikke vir¬ 
ker gider spilleren ikke spille 
spillet lige meget hvor godt 
det er. 

Brugerinterfacet har også 
at gøre med hvordan spille¬ 
ren giver input til program¬ 
met. I en adventure sidder 
en parser som analyserer de 
data brugeren indtaster. 


Den simpleste form for 
parser findes i de adventure¬ 
spil som er menuorienteret, 
som f.eks. The Fourth Proto- 
col (den vil blive anmeldt i 
en af de næste numre af Am- 
strad bladet). Her kan pro¬ 
grammet bare slå op i en ta¬ 
bel for at undersøge hvad 
det nu skal gøre. Herunder 
kommer også Arkade-ver¬ 
sionerne, som f.eks. Alien 
eight, Sorcery(-t-), Movie, 
Batman, osv. 

Derefter kommer to-ords 
modellerne. De kan kun 
genkende to ord af gangen, 
så alt hvad brugeren ellers 
skriver, ignoreres. Heavy on 
the magick bruger f.eks. det 
princip og det fungerer ud¬ 
mærket, hvis der kun skal 
udføres simple instruktioner. 
The Adventure Writing Sy¬ 
stem og GAC bruger også 
to-ords princippet. Vi vil 
komme ind på programmet 
senere, da det faktisk ikke er 
et adventure, men et adven- 
ture-genereringsprogram, 
altså et program til at lave 
adventures i. 

Den sidste gruppe har en 


mere avanceret parser, der 
kan genkende flere ord på 
en gang, analysere sæt¬ 
ningsopbygninger og f.eks. 
dele sætninger ved 'og' og 
komma. osv. Kvaliteten af 
de enkelte parsere er meget 
forskellige. Nogle har et ord¬ 
forråd på hundrede og og 
nogle har op til og måske 
mere end tusind ord! Kvali¬ 
teten har en stor betydning 
for hvor "nemt" det er at 
styre adventurespillet. Hvis 
programmet ofte kommer 
med "I don’t understand the 
word X’" (Jeg forstår ikke 
ordet 'X'), er spillet faktisk 
blevet til en rdgætteleg i ste¬ 
det! 

Blandt de software-huse 
der laver de bedste adventu¬ 
res finder man Infocom. 
Deres programmer har et 
meget stort ordforråd og en 
ganske kraftig parser, der 
kan klare lidt af hvert! Der 
kan også ses på størrelsen af 
programmerne, f.eks. fylder 
The Hitchhiker’s Guide to 
the Galaxy 121 Kb og det er 
UDEN grafik og lyd, for pro¬ 
grammet kører under CP/M. 
dvs. at det kan køre på alle 
CP/M-maskiner. incl. CPC 
og PCW, bare de har en di¬ 
skette-station. Og for at un¬ 
derstrege Infocom’s seriøsi¬ 
tet har programmet desuden 
et release og serielt num¬ 
mer! 

The Hitchhiker’s 
guide to the galaxy 

For at give en forsmag på en 
virkelig god adventure har 
jeg tilladt mig at oversætte 
en mulig start (og en mulig 
slutning - læg mærke til 
den) på Infocom’s mest 
kendte adventure. 

Jeg håber det er lykkedes 
at behold humoren, satiren, 
sarkasmen, osv, under min 
oversættelse fra engelsk til 
dansk af THE HITCHHIK- 
ER’S GUIDE TO THE GA¬ 
LAXY. 

Du vågner op. Rummet 
roterer stille omkring dit ho¬ 
ved. Eller det ville det i hvert 
fald gøre, hvis du kunne se, 
hvilket du ikke kan. 

Det er bælgmørkt. 

> TÆND LYSET 

En god start på dagen. 
Synd at det skal blive den 
værste i dit liv. Lyset er nu 
tændt. 
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Soveværelse, du er i sen¬ 
gen. Soveværelset er et 
stort rod. 

Det er et lille soveværelse 
med et falmet tæppe og 
gammel tapet. Der er et vas¬ 
kekar. en stol med en laset 
morgenkåbe og et vindue 
hvor gardinerne er trukket 
for. Tæt på udgangen, som 
leder mod syd, er der en te¬ 
lefon. 

Der er en fladhovedet 
skruetrækker her (uden for 
sengen). 

Der er en tandbørste her 
(uden for sengen). 

> STÅ OP 

Meget vanskeligt, men det 
lykkedes. Rummet roterer 
stadig. Det ruller og gynger 
lidt. 

> SYD 

Du kikser døren med over 
50 cm. Væggen støder dig 
ret heftigt. 

> TAG ALT 

Telefonen: Den falder 
igennem dine fumlende 
fingre og rammer tæppet 
med et nerverystende bang. 

Fladhovedet skruetræk¬ 
ker: Den falder igennem 
dine fumlende fingre og 
rammer tæppet med et ner¬ 
verystende bang. 

Tandbørste: Du rækkerud 
efter den, men rummet rote¬ 
rer kvalmende væk. Gulvet 
giver dig et let slag på pan¬ 
den. 

Morgenkåbe: Heldig, den 
er så stor, at du kan fange 
den. Du opdager et eller an¬ 
det i lommen. 

> UNDERSØG LOMME 
Morgenkåben er falmet 

og ramponeret og det er ty¬ 
deligt et klædningsstykke, 
som har set bedre årtier. Den 
har en lomme, som er lukket 
og en strop bag på kraven. 

> ÅBEN LOMME 

Det er svært at åbne eller 
lukke lommen med mindre 
du har morgenkåben på. 

> TAG KÅBEN PÅ 
Du har nu kåben på. 

> ÅBEN LOMME 
Åbning af lommen afslø¬ 
rer en ting din tante gav dig, 
som du ikke ved hvad er, en 
smertestillende pille og lom¬ 
meuld. 

> TAG PILLE 

Du sluger pillen. Efter 
nogle få sekunder begynder 
rummet at falde til ro og op¬ 


føre sig på en anstændig 
måde. Din forfærdelige ho¬ 
vedpine forsvinder. 

> TAG ALT 

Telefon: Du tager røret. Et 
øjeblik efter forsvinder plud¬ 
selig klartonen. Da du kigger 
ud af vinduet ser du den 
store gamle eg, som du er 
specielt glad for; falde, og at 
den tager telefonlednin¬ 
gerne med i faldet. 
Radhovedet skruetrækker: 
Taget. 

Tandbørste: Samtidig med 
at du tager tandbørsten kol¬ 
lapser et træ uden for vindu¬ 
et. Der er ingen tilfældig 
sammenhæng mellem disse 
to begivenheder. Burde du 
ikke interessere dig mere for 
de begivenheder der sker i 
verden omkring dig? Mens 
du stadig har den...? 

> SYD 

Du baner dig vej ud til ho¬ 
veddørens vindfang. 

Hoveddørens vindfang. 

Dette er en tildækket 
vindfang ved hoveddøren af 
dit hus. Din forhave ligger 
mod syd og du kan gå til¬ 
bage til dit hus mod nord. 

På dørmåtten ligger der 
en stak tilfældig post 

> TAG POST 

Du tager stakken af post. 

> UNDERSØG POST 

Der er meget post. Det 
meste er fra et eller andet 
computerfirma kaldet Info- 
com, som vil have dig til at 
købe deres spil. Skjult ned- 
erst ligger et officielt brev fra 
det lokale rådhus, dateret for 
ca. to år siden, men på ufor¬ 
klarlig vis er det først blevet 
afleveret nu. Brevet forkla¬ 
rer at en nedrivningsken¬ 
delse er lavet på dit hus. Da¬ 
toen for nedrivningen er 
dags dato. 

> SYD 

Foran huset. 

Du kan gå ind i huset mod 
nord. En sti leder rundt om 
det mod nordøst og nord¬ 
vest og en landevej er synlig 
mod syd. Alt hvad der ligger 
mellem dit hus og den store 
gule bulldozer som bevæger 
sig mod det er en meter 
mudder. 

Hr. Prosser, fra det lokale 
rådhus, står på den anden 
side af bulldozeren. Han ser 
ud til at bære et digitalur. 
Han ser overrasket ud over 
at se dig komme ud og han 


råber at du skal komme af 
vejen. 

Bulldozeren rumler lang¬ 
somt mod dit hjem. 

> SYD 

Landevejen. 

Vejen løber fra dit hus, 
mod nord, mod en landsby¬ 
pub mod vest. 

Bulldozeren braser ind i 
siden af dit hjem. 

Dit hjem kollapser i en sky 
af støv og en vildfarende fly¬ 
vende mursetn rammer dig 
perfekt i nakken. Du forsø¬ 
ger at tænke på nogle pa¬ 
sende sidste ord, men i øje¬ 
blikkets forvirring og på 
grund af svimmelheden er 
du ude af stand til at sam¬ 
mensætte noget fyndigt og 
du udånder i stilhed. 

> HVAD 

Hold dig ude for det her, 
du er død. En ambulance 
ankommer. 

> NEJ 

Hold dig væk fra det her, 
du er død og du skulle kon¬ 
centrere dig om en god fast 
rigor mortis. Du bliver puttet 
ind i ambulancen, som kører 
væk. 

> FOR F.NEJ 

Af en død person at være 
taler du for meget. Da ambu¬ 
lancen når ligkapellet an¬ 
kommer uventet en flåde af 
Vogon Konstruktør rum¬ 
skibe som destruerer jorden 
for at gøre plads for en ny 
hyperrums motorvej. 

Vi skal til at give dig din 
score. Tag dine fare-sensi- 
tive solbriller på nu. (Tryk 
RETURN eller ENTER når 
du er klar.) 

De fare-sensitive briller, 
der henvises til, er en del af 
det udstyr, man får sammen 
med disketten og manualen. 
Brillerne bliver ugennemsig¬ 
tige i tilfælde af fare - og de 
jeg har set er altid sorte - da 
de er lavet af pap!!! Der er 
humor bag Infocom, men de 
kan også bare det der - 
Hitchhicker's Guide hører til 
den almindelige sværheds¬ 
grad. der findes også nogle, 
der er svære (ifølge Infocom) 
- de er umulige! 

Andre adventures 

Listen af adventures og 
deres forskelligheder er uen¬ 
delig, men jeg håber denne 
artikel har løftet sløret for 


mystikken bag det hele - og 
så er vi ikke engang helt fær¬ 
dige endnu! 

Der findes nemlig en helt 
speciel form for adventures 
— nemlig en multibruger el¬ 
ler multiuser adventures, 
som det hedder på engelsk. 
Her spiller man via sin termi¬ 
nal og evt, modem hjemme 
på værelset, sammen med 
og/eller mod andre der sid¬ 
der ved deres terminaler. 
Det er en helt speciel ople¬ 
velse at vandre rundt i en 
stor labyrint med skatte og 
uhyre sammen med overbo¬ 
en, samt nogle fra Køben¬ 
havn og Århus, som altid 
kan komme til hjælp, hvis 
det er ved at brænde på. 
Men det har også den uleme 
at alle får at vide, at man er 
død, for så kommer beske¬ 
den "Another lonely sche- 
pard has bought the firm!” 
På alle de andres skærme! 
(Her er en hilsen til alle Mo- 
ria-labyrint-spillere på PLA¬ 
TO. Hej!) 

Jeg kommer evt. tilbage 
senere med en anmeldelse 
af den engelske Dungeon & 
Dragons, når jeg har an¬ 
meldt nogle modems - hvis 
chefredaktøren altså beta¬ 
ler!?) 

Homemade 

adventures 

Så slutter vi med den sidste 
form for computer adventu¬ 
res. nemlig dem man selv la¬ 
ver! Nogle kan nok huske ar¬ 
tiklerne i nogle af de første 
numre af Amstrad bladet, 
hvor Clive Gifford beskrev 
hvordan en adventure 
kunne programmeres i BA¬ 
SIC, så her vil vi i stedet kort 
kigge på nogle af de pro¬ 
grammer, som kan hjælpe 
en til at lave en adventure. 
Der findes tre kendte syste¬ 
mer og en fjerde er på vej. Vi 
vil senere give en grundig 
anmeldelse af program¬ 
merne i Amstrad bladet. 

GAC, the Graphic Adven¬ 
ture Creator. er (vistnok) den 
mest udbredte, skarpt efter¬ 
fulgt af The Adventure Wit¬ 
ter (eller også er det om¬ 
vendt!) The Adventure Wit¬ 
ter består af tre programmer: 
The Quill, The Illustrator og 
The Splitter. I Quill laves 
tekst-adventuren. Illustrator 
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kan derefter bruges til at til¬ 
føje billeder og Splitter sør¬ 
ger for at billed og tekst kan 
vises samtidigt. Disse tre 
programmer er samlet i et 
med GAC, men samtidigt er 
en del af QUILL's bruger¬ 
venlighed forsvundet. I 
GAC bruges numre til at re¬ 
ferere til værelser, gen¬ 
stande og ord, og da der kan 
være mange ord i en adven¬ 
ture kan det være ret forvir¬ 
rende, så er QU1LL lidt nem¬ 
mere, da kun værelser og 
genstande er nummereret 
og systemet er mere bruger¬ 
venligt. 

Genesis, The Complete 
Adventure Creation system, 
fra CRL vil jeg kun skrive 
meget lidt om, da det er så 
avanceret at den næsten er 
umulig at bruge og hvis det 
endelig lykkes, synes jeg 
ikke resultatet er godt nok! 
Genesis kan bl.a. bruge to 
modes samtidig og spille 
musik, men programmet er 
for det meste skrevet i BA¬ 
SIC og som sagt umuligt at 
bruge og resultatet er ræd¬ 
selsfuldt! 

Hvor svært er det så at 
lave en adventure, når man 
har disse programmer? Det 
er ikke svært - hvis man 
altså har historien! Og selv 
den mindste adventure kan 
have sin charme, bare ideen 
er original nok. Neden for er 
en adventure lige til at taste 
ind i BASIC - god D&D! 










I anledning af at det endelig er blevet sommer, så har 
vi ladet fremstille nogle T-shirt’s med Amstrad Bla- 1 
dets logo påtrykt. Disse T-shirts vil vi udlodde nogle 
stykker af her i denne lille konkurrence. 

For at deltage i konkurrencen skal du indtaste det viste pro¬ 
gram: VEKTOR-RACE (som kun er til CPC-maskinerne). In¬ 
den jeg går videre med reglerne, så vil jeg lige gøre rede for 
begrebet: en vektor. 

En vektor kan opfattes som en pil. der kendetegnes ved to 
ting, retningen og længden. Hvis man placerer en vektor i et 
koordinatsystem, kan den beskrives v.h.a. et koordinatsæt. 
Det første koordinat angiver vektorens udstrækning i x-ak- 
sens retning og det andet koordinat står så for vektorens ud¬ 
strækning i y-aksens retning (se fig. 1). I programmet benyt¬ 
tes bogstaverne »a« og »b« for de to koordinater. Hvis en vek¬ 
tor har koordinaterne (2.3), og har begyndelses-punkt i 
(0.0). så vil slutpunktet ligge i punktet (2,3), hvis denne vek¬ 
tor forlænges med endnu en vektor med de samme koordi¬ 
nater, så vil de to vektorers endepunkt ligge i (4,6). På den 
måde kan man bevæge sig rundt i planet v.h.a. varierende 
vektorer. Det er netop det »VEKTOR-RACE« går ud på. 
Reglerne i »VEKTOR-RACE« er følgende: i starten har vek¬ 
toren koordinaterne (0,1), altså en lodret pil. Nu får du så mu¬ 
ligheden for at ændre disse koordinater, eller rettere et af ko¬ 
ordinaterne. Du kan gøre ENTEN a ELLER b, EEN større el¬ 
ler mindre. Herefter gælder det bare om at gennemføre ba- 
| nen på mindst muligt antal skridt. Umiddelbart lyder det let, 
men hvis man får for meget fart på, så tager det lang tid at 
I bremse op, og hvis man så oven i købet skal dreje, ja så op- 
| står problemerne ret hurtigt. 

Hvis du får helt til at gennemføre hele banen, så skriver pro¬ 
grammet alle koordinaterne for dine vektorer ud på enten 
skærmen eller printeren. sammen med antallet af skridt. Det 
er meget vigtigt, at du sender disse tal sammen med din svar¬ 
kupon, idet vi ellers ingen mulighed har for at kontrollere 
svaret, og derfor vil alle besvarelser uden koordinatangivel¬ 
ser straks blive diskvalificeret. Endvidere skal du huske at an¬ 
give størrelsen (Small. Medium, Large) på den T-shirt du øn¬ 
sker at modtage, hvis du vinder. Alle besvarelser skal være os 
i hænde senest den 1. oktober 1987, og vinderne vil blive of¬ 
fentliggjort i Input nr. 2-87. 

Held & lykke 
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io ■ ********************************** 

20 ' * INPUT's T-shirt konkurrence * 
30 ' # 1787 * 

40 • *-* 

50 * * VEKTOR-RACE * 

60 ‘ » @ Amstrad Bladet * 

70 *»***»«*»**#»****##*#*#*####****»* 

80 DIM skridt<200,21 
90 NODE 1 

100 GUSUB 530:' tegn bane 
110 s=l:gla=l:glb=l 
120 ORIGIN 54,1 IB 
130 x=0:gly=0 
140 PLOT x,g 1y 
150 LOCATE 8,9:PRINT " 

160 LOCATE 8,10:PRINT " 

170 LOCATE 8,11:PRINT" 

180 LOCATE 10,10:INPUT -<a,b)";a,b 
190 ' *»» Test koordinaterne *»* 

200 IF a>0 AND ABS<a-gla)>l THEN PRINT Cj 
HRf <71:GOTO 180 

210 IF b >0 AND ABS <b-glb)>1 THEN PRINT 
HR*< 7):GOTO 180 

220 IF (aOgla) AND (bOglb) THEN PRINT 
CHR* <71:GOTO 180 
230 a=a*16:b=b*16 
240 xx=x+a:yy=y+b 

250 IF a<0 THEN s=-0.2 ELSE s=0.2 
260 IF b<0 THEN ss=-0.2 ELSE ss=0.2 
270 * *** Hvis lodret vektor *** 

280 IF (xx-x> =0 THEN FOR t=0 TO b STEP 
s:GOSUB 430:FLOT x,t+gly:NEXT:gly=gly+t :| 
GOTO 380 

290 * **» Beregn hældning **» 

300 h=(yy-y>/<xx—x) 

310 FOR t=0 TO a STEP s 
320 y=h*t+gly 

330 GOSUB 480:' Mål- eller Crash-test 
340 PLOT t+x,y 
350 NEXT 

360 gly=INT <y+0.5) 

370 x=x+a 

380 gla=a/16:glb=b/16 

390 skrit=skrit+l:L0CATE 8,13:PRINT "skr| 
idt:";skrit 

400 skridt(antal,O)=a/16:skridt(antal,1)1 











| -b/16:antal=antal+l 
410 GOTO 150 

420 '»** Crash test (ladret) *** 
430 IF TEST(x , t +gly)=2 THEN 980 
440 ' *** Mål test (lodret) *** 

450 IF TEST(x,t+gly)=3 THEN 1020 
460 RETURN 

470 ' »** Crash test «»* 

480 IF (TEST(t +x,y)=2) THEN 980 
490 ’ *** Mal test **# 

500 IF (TEST(t+x,y)=3> THEN 1020 
510 RETURN 


520 ' ««* Tegn Banen «*» 

530 INK 0,0:INK 1,26:INK 2,9:INK 3,6 

540 INK 14,3 

550 SYMBOL AFTER 240 

560 SYMBOL 241,255,255,255,255,255,255,2 
55,255 

570 SYMBOL 242,0,0,0,0,0,0,0,0 
580 SYMBOL 243,0,0,0,24,24,0,0,0 
590 SYMBOL 244,0,0,255,255,255,0,0,0 
600 FOR y- 1 TO 25 
610 FOR x= 1 TO 40: READ asci1: 

620 IF ascii=1 THEN PEN 2:PRINT CHRS(241 
) ; : PEN 1 

630 IF ase ii=0 THEN PRINT CHR*<243>; 

640 NEXT 
650 NEXT 

660 LOCATE 3,20:FEN 3:PRINT CHR*(241);CH 
RT(241> sCHR*(241);CHR*(241):PEN 1 
670 LOCATE 3,19:PEN 2:PRINT CHR*(241);CH 
R K 241):CHR*(241);CHR*(241):PEN 1 
680 LOCATE 10,7:FRINT "VEKTOR-RACE" 

690 LOCATE 30,22:PRINT "INPUT" 

700 LOCATE 29,23:PRINT "Konkurrence 
710 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 
, 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1,1 
, 1 , 1 , 1,1 

720 DATA 1,1,1,0,0,O,O,O,O,O,O,O,O,O,O,O 
,0,0,O,O,O,O,O,1,1,1,0,O,O,O,O,O,O,O,O,O 
, 1 , 1 , 1,1 

730 DATA 1,1,0,0,O,O,O,O,O,O,O,O,O,O,O,O 
,0,0,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O 
, 1 , 1 , 1,1 

740 DATA 1,1,O,O,O,O,O,O,O,O,O,O,O,O,O,O 
,0,0,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O 
,1,1,1,1 

750 DATA 1,1,O,O,O,O,O,O,O,O,O,O,O,O,O,O 
,0,0,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O,O 
,1,1,1,1 

760 DATA 1,1,0,0,O,O,O,1,1,1,1,1,1,1,1,1 
,1,1,1,1,1,1,1,0,O,O,O,O,1,1,1,1,O,O,O,O 
, 1 , 1 , 1 , 1 

770 DATA 1,1,0,0,0,0,1,1,1,1,1,1 , 1 , 1 , 1 , 1 
,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,O,O,O,O 
,0,1,1,1 

780 DATA 1,1,O,O,O,O,1,1,1,1,1,1,1,1,1,1 
,1,1, 1,1, 1,1, 1,1, 1,1,1,1,1,1,1,0,O,O,O,O 
,0,1,1,1 

790 DATA 1,1,O,O,O,O,1,1,1,1,1,1,1,1,1,1 
,1,1,1,1,1,1,1,1,1,1,1,1,1,1,O,O,O,O,O,O 
,1,1,1,) 

BOO DATA 1,1,O,O,O,O,1,1,1,1,1,1,1,1,1,1 
,1,1, 1,1, 1,1, 1,1,1,1,1,1,O,O,O,O,O,O,O,O 
,1,1,1,1 

810 DATA 1,1,O,O,O,O,1,1,1,1,1,1,1,1,1,1 
,1,1,1,1,1,1,1,1,1,1,1,1,O,O,O,O,O,O,0,1 
,1,1,1,1 


820 DATA 1,1,O,O,O,O,1,1,1,1,1,1,1,1,1,1 

,1,1,1,1,1,1,1,1,1,1,1,1,o,O,O,1,0,O,0,1 
,1.1,1,1 

B-.O DATA 1,1,O,O,O,0,1,1,1,1,1,1,1,1,1,1 
,1,1,1,1,1,1,1,1,1,1,1,1,o,O,O,1,0,O,0,1 
, 1 , 1 , 1,1 

840 DATA 1,1,O,O,O,O,1,1,1,1,1,1,1,1,1,1 
,1,1,1,1,1,1,1,1,1,1,1,0,O,O,O,O,O,O,1,1 
, 1 , 1 , 1,1 

850 DATA 1,1,O,O,O,O,1,1,1,1,1,1,1,1,1,1 
,1,1,1,1,1,1,1,1,1,1,O,O,O,O,O,O,O,1,1,1 
.1,1.1,1 

860 DATA 1,1,0,0,O,O,1,1,1,1,1,1,1,1,1,1 
,1,1,1,1,O,O,O,O,O,O,O,O,O,O,O,O,O,1,1,1 
.1,1.1,1 

870 DATA 1,1,0,0,0,0,1,1,1,1,1,1,1,1,1,1 
,1,1,1,1,0,O,O,O,O,O,O,O,O,O,O,O,O,1,1,1 
, 1 , 1 , 1,1 

880 DATA 1,1,O,O,O,O,1,1,1,1,1,1,1,1,1,1 
,1,1,1,1,O,O,O,O,O,O,O,O,O,O,O,O,O,1,1,1 
,1.1,1,1 

890 DA IA l,l,0,0,0,0,l,l,l,l,l,l,l,l,l,l| 
,I ,1 ,1,1,0,0,O,O,O,O,O,O,O,O,O,O,O,1,1,1 
,1,1.1,1 

900 DATA l,l,0,0,0,0,l,l,l,l,l,l,l,l,l,l| 
,1,1,1,1,O,O,O,O,O,O,O,O,O,O,1,1,1,1,1,1 
, 1 , 1 , 1 , 1 

910 DATA l,l,0,0,0,0,0,l,l,l,l,l,l,l,l,l| 
,1,1,1,0,O,O,O,O,O,O,O,O,1,1,1,1,1,1,1,1 
, 1 , 1 , 1,1 

920 DATA 1,1,0,O,O,O,O,O,O,O,O,O,O,O,O, o| 
,0,0,O,O,O,O,O,O,O,O,O,1,1,1,1,1,1,1,1,1 
.1,1,1.1 

930 DATA 1,1,0,O,O,O,O,O,O,O,O,O,O,O,O, o| 
,0,0,O,O,O,O,O,O,O,O,O,1,1,1,1,1,1,1,1,1 
, 1 , 1 , 1,1 

940 DATA 1,1,O,O,O,O,O,O,O,O,O,O,O,O,O, 0[ 
,0,0,O,O,O,O,O,O,O,O,O,1,1,1,1,1,1,1,1,1 
, 1 , 1 , 1,1 

950 DATA l,l,l,l,l,l,l,l,l,l,l,l,l,l,l,l| 

,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, li 
, 1 , 1 , 1,1 
960 RETURN 

970 ' *** Afslutning (Tabt) *** 

980 CLS:PRINT "Du ramte en af banens kan| 
ter, prøv igen (tryk en tast)" 

990 at=INKEY*:IF a*="" THEN 990 
1000 RUN 

1010 ' *** Afslutning (Vundet) *** 

1020 CLS :PRINT "Du har nået mål, dine v| 
ektarer har haft følgende koordinater : 
1030 INPUT "skal de udskrives på (P)rint| 
er eller (S)kerm)"}af 

1040 IF UPPERf(af)="P" THEN s=8 ELSE s=ol 
1050 FOR t=0 TO antal:PRINT #s,"tr*k nr" 
;t;"har koordinaterne (“;skridt(t,0) 

;skridt (t,1)J”)" 

1060 NEXT 





LÆSERSERVICE 


Tegn et abonnement og få 2 gratis numre af INPUT med 
masser af programlistninger 

Har du somme tider problemer med at få Amstrad bladet hos din lokale bladforhandler? Opdager du det først 14 dage efter, at vi alle¬ 
rede er udkommet? Vil du gerne være hurtigst muligt orienteret om alle nyhederne i Amstradland? 

- Så har vi alle tiders tilbud til dig: Tegn et abonnement, og spar dig alle bekymringer. Bladet leveres med posten til din bopæl. Du får 
ved bestillingen et nr. af bladet INPUT - og du sparer kr. 63,20 - ikke dårligt, vel? 

Alt hvad du behøver at gøre er at udfylde kuponen nederst på siden med dit navn og adresse - resten sørger vi for! 



Klip her! . . Klip her! 

Bestillingskort 


Abonnement 


Undertegnede bestiller herved: 

□ 1 års abonnement på Amstradbladet (10 numre). Ved bestilling får jeg gralis tilsendt INPUT 2 gange årligt 

Pris: 295.- . 

□ 1 års abonnement på Amstrad Computer User (12 nr. incl. porto) kr. 285,- . 

□ Amstrad Professional Computing kr. 285,- . 


Disketter/bånd 

□ Programlistninger på disc i dette nr. for kun kr. 130,- . 

□ Programlistninger på bånd i dette nr. for kun kr. 59,85 . 

□ -stk. Maxell disketter CF2 å kr. 49.50 . 

□ Amstradbladets kartoteksprogram på disc. (Model CPC (_) kr. 110.- 


SÆKTILBUD 


PCW Time Organizer 69,95 - 


Beløbet bedes vedlagt pr. check, eller indsættes på giro 
6 26 51 97. Alle priser er exel. porto. Bestillinger bedes forudbe¬ 
talt. Beløbet er indsat på giro Q vedlagt i check □ 

Efterkrav: + 25 kr. 


Total 

+ Porto og ekspedition, min, 10.00 

Ialt 


BELØB 


Du skal være opmærksom på, at der for visse bestillingers ved¬ 
kommende kan være en vis leveringstid, da nogle af produk¬ 
terne kun hjemtages i det antal I bestiller. 

Send venligst ovenstående til: 

Navn: . 

Adresse: . 

Postnr./by: . 

evt. tlf.: . 


Amstrad Bladet 
Vestergade 35 D 
DK 8600 Silkeborg 

eller på tlf. 0682 2455 mellem kl. 9.00 og 15.00 
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Kundenr: 31084 

Jensen, Per H. V. 
Fyrkildevej 44, l.tv 
9220 Aalborg 0 


'■Forhandlere 

t- SJÆLLAND OG ØERNE Allerød: Allerød Boghandel Brønshøj: Brønshøj Fotoccntet 

■ Hellerup: Rollings Foto Helsinge: Schwart 2 data Helsingør: ProvestenensComputer 

■ center Hillerød: Toftes Boghandel Holbæk: Hagner Foto ApS Hundie: Bilka. Ishøj 


Bilka. Ishøj Computercenter København V. Anva Computerafd København K: Maga 
sin du Nord København O: Mibola Microdata København N: Tang Foto Lyngby: 8 0 
Bøger Nakskov: E«pert Radio Nykøbing F Espert Radio Næstved: Georg Chr Bog 
handul. Ringsted: Flensborg Kontor & Data Roskilde: Flensborg Computer, Rerdi Foto. 
Skovlunde: Skovlunde Computercenter Slagelse Holm Foto Stenløse. Fotohuset. 
Tdstrup: Fbulsens Computer Center Ølstykke: Fotohuset. Ølstykke Computercenter. 
Samt alle FONA (ortetninger. JYLLAND: Esbjerg: Anva, computerafd, Centrum Foto 
Fredericia: Bang P Bøger b Foto Fredrikshavn: Dam Foto Herning: OBS Hjørring. 
Anva. computerafd. Holstebro: Computer Shoppen Kolding: Foto Magasinet 
Mundelstrup: Bilka Nykøbing M : Dam Foto Nørresundby: OBS. Odder: CT Data b 
Elektronik Randers: Centorfoto. OBS Silkeborg: Alderslyst Foto. Grafitti Data This¬ 
ted: Dam Foto Vejen: Leg & Data Ålborg: Anva. computerafd., Bilka. Knud Ensig AS. 
I Århus: Clemens Data & papirbutik. Computer Butikken. FYN: Nyborg: Nyborg Foto. 


Odense: Bilka. Magasin du Nord 


METALSWITCHES 


BAT HANDLE 

Wico's klassiker. Denne type “styrepind" har Wico fremstillet 
til det Amerikanske flyvevåben i mere end ti Ar Den har alt, 
hvad man kan o nske sig af en kvalitetsjoystick: tyngde, stabi¬ 
litet, præcision, stålskaft. 7skydeknapper og 6 metal 
switches AS'* 


Iro præstation end microswitches Da der er 
dele bliver metalswitchen hurtigere, hvilket 


laslighed 


Wico markedsfores afe 
Dennis Bergstrom Trading A/S 
Telegrafvej 5,2750 Ballerup 
02 658600 
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